my $file = 'out.txt'
open my $sh, $file or die ...