my $f = "/etc/hosts";
open($f, $f);
readit($f);

sub readit
{
	my $h = shift;
	print while(<$h>);
	warn;
}

##</code><code>##

Warning: something's wrong at ./t25.pl line 11, </etc/hosts> line 12.