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