Select Code to Download

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

my $fh = $s->{in};
my $line = <$fh>;