eval {
  # some perl code here
  . . . 
}

if ($@) {
  print "eval failed: $@\n\n" ;
}