Select Code to Download

( ($a, $b) = ( $somevar, $someothervar ) ) || die '$somevar or $someot
+hervar not set!';
...

#! perl -slw
use strict;
...
    (($a, $b) = ( $_->[0], $_->[1] ))
        || warn "I would die when \$a=$a and \$b=$b\n";
}