- or download this
$files{3} = $input_directory,"3";
- or download this
open my $data, ...
- or download this
open my $data, '<', $files{$_} ...
- or download this
open my $data, '<', $files{$_} or die "open('$files{$_}'): $!";
- or download this
use Fatal qw( open );