$_ = 1;
do (print);
print "\n";
print $!, "\n" if $!;