my $s = {} ;
open( $s->{out}, ">out" ) or die "hmmmm\n" ;
print $s->{out} "test" ;
close $s->{out} ;