Select Code to Download

use warnings;
use strict;
...

open my $fh, '<', $file or die "can't open file: $!";
...