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

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