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

##</code><code>##

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

##</code><code>##

whatever() / 25;

##</code><code>##

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

##</code><code>##

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