#!/usr/bin/perl delete @ENV{qw(PATH)}; $ENV{PATH} = "/usr/bin:/bin"; $path = $ENV{'PATH'}; $val1 = $ARGV[0]; ($val1) = $val1 =~ /^([\w.:]+)$/; open(PROCESS, "cat /proc/meminfo | grep -w $val1 |"); foreach () { if ($_ =~ /($ARGV[0].*\s)(.*[0-9])( kB)/) { print $2; } } close(PROCESS);