sub blah { my $filehandle = shift; print $filehandle "Blah!\n"; } blah(*STDOUT); #these both blah(\*STDOUT); #produce Blah! (and a newline)