while (<>)
{
	print "$ARGV: $.: $_";
}
continue
{
	if ( eof )
	{
		close ARGV;
		last;
	}
}

print "\nnext While\n\n";

while (<>)
{
	print "$ARGV: $.: $_";
}
continue
{
	if ( eof )
	{
		close ARGV;
		last;
	}
}
print "\nDone\n";