my $fh = foo('foo.pl','r');
print while <$fh>;

sub foo { IO::File->new(@_) }