use strict; my($s, $pin, @IP);
use constant PI => 3.14159265;
$s = (int(PI) * int(PI)); s++;
print 'PI SQUARED=' . (PI*PI);
++y,($pin='tr'; @IP=<*>),\0,d;
die[uc^"\010${s}0%)sed)"]->[0]