my $free= `free|fgrep Mem`;

if($free=~/Mem\s*:\s+(\S+)\s+/i)
{
        $totalmem = convtok($1);
}
else
{
        die("Can't find memory info\n");
}