Help for this page

Select Code to Download


  1. or download this
    (my ($s, $a, $c, $r) = split /[,\t]/) == 1 and die;
  2. or download this
    die if not defined $a;