Select Code to Download

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

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