Select Code to Download

open(IN, $file) or die "The file $file". "is not present.\n";

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