Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
    # Send
    trap { $msg->send or print "Error: $@\n" };
    $_ and print "Error: $_\n" for $trap->die, $trap->stdout, $trap->s
+tderr;