# some code that might fail
eval {
  open MYFILE, "> some_file.txt" or die $!;
  ...
  close MYFILE;
};

# catch the "exception"
if ($@) {
  print "Errors during file operation: $@\n";
}