Select Code to Download

open my $fh, '<', $filename  or die "Unable to open [$filename] becaus
+e of: $!";

open my $fh, '<', $filename  or die "Unable to open [$filename] becaus
+e of: $! $^E";