Select Code to Download

#!/usr/bin/perl
print("1\n");

whatever  / 25 ; # / ; die "this dies!";

whatever() / 25;

whatever($_ =~ m{ 25 ; # });
die "this dies!";

BEGIN {
  *sum      = sub ($$) { (shift) + (shift) };
  *whatever = (sum(2,2) == 5) ? sub ($) {} : sub () {};
}