my $s = {} ;
open  $s->{out}, '>', 'out' or die "open: $!\n";
print { $s->{out} } "test";
close $s->{out} or die "close: $!\n";