Select Code to Download

if (open my $fh, '<', $file){
  print "file opened\n";
else{
  print "open failed: $!";
}