Help for this page

Select Code to Download


  1. or download this
    if (!eval {
       ...; 1
    }) {
       ...
    }
    
  2. or download this
    use strict;
    $SIG{__DIE__} = sub { syslog("err", shift) };
    for my $counter (1..10) { print("$conter\n"); }