Select Code to Download

       total    used  free shared  buffers  cached
Mem:  189656  180144  9512      0     6976   81012

   my @lines = `free`; # run command, store output
   chomp (@lines);     # remove all newlines.

my @field_names = split (' ', $lines[0]); # split 1st line

my @mem_sizes = ( $lines[1] =~ m/(\d+)/g );

my %free; # a hash, where the fields will get stored

@free { @field_names } = @mem_sizes;

print("Cached: ", $free{'cached'}, "\n");

@free { @field_names } = @mem_sizes;