perl -MPOSIX -e '$simpsons = sub {$mmmm = floor(atan2(1,1) * 4)};'