I never use global file-handle identifiers any more. Without pulling in the whole File::IO module, you can still do this:

open (my $in, $infile) or die;
foo ($in);

sub foo
{
my $file= shift;
print $file "Some Stuff.";  # note no comma
}
[download]

Basically, a reference to a glob can be used just like a glob to mean the associated file handle. In Perl 5.6 I think the open function will auto-vivify to just that, so you don't need to use a module or tricks to create a reference to an anonomous glob anymore. There's been discussions on that here; I posted a question concerning using this as the prefered method moving forward, when I heard about the auto-vivification.

—John