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