Just for information, here is the True Perl Way (tm):

eval { die "screaming" }; 
if( $@=~ /screaming/)            
  { print "stop screaming\n"; } 
print "happily going on\n";
[download]

$@ is empty ('') if the eval succeeds, otherwise it contains the error message returned by the code.