Select Code to Download

my $h2f = new MyPackage() ;
$h2f->{fsize} = 1000 ;
print "filename = " . $h2f->{fname} ;
$h2f->cleanup() ;
....

#! /usr/bin/perl -l

...
my $mh = new NewStdHash() ;
print "val is " . $mh->{abc} ;
$mh->{abc} = 20 ;