Select Code to Download

my $file = 'file-name';

...
{
  print "No such file or directory\n";
}

if ( open my $handle, '<', $file )
{
...
  print $!, "\n";
  #warn "Cannot open file '$file' to read: $!";
}