my $file = 'file-name';

if( open(HANDLE, $file) )
{
  ...
}
else
{
  print "No such file or directory\n";
}  

##</code><code>##

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