Help for this page

Select Code to Download

Select or download this

my $free = `free`;
my @words = split /\s+/, $free;

shift @words if $words[0] eq '';