Select Code to Download

 #!/usr/bin/perl5.8
use Proc::ProcessTable;
#use Tie::File::AsHash;

 my %hash= ();

%TV = (  flintstones =>{ series   => "flintstones",
...
                                       { name => "elroy",   role => "k
+id",  age  =>  9, },
                                     ]
                       },

 sub memory_use {
    my $t = new Proc::ProcessTable;
    foreach my $got ( @{$t->table} ) {
...
        return $got->size;
    }
}

  my $count = 10;
  my $key = 'test';

...
          %hash = (); # if we comment it memory constant
      }
  } #----for 1----#