This can be done several ways (as usual). For example:

open(LOK, ">>/non-existing/file") || my_subroutine($!);

sub my_subroutine {
   print "Oh no! Error: ".shift;
}
[download]