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