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