#!perl -w
$|++;
eval <>;