use Cwd qw(abs_path); use strict; my $script = abs_path($0); # Standard Method open(FH, $script) or die "Can't open $script: $!"; while () { print "Standard Method: $_"; } close(FH); # Passing Indirect File Handle open my $fh, '<', $script or die "Can't open $script: $!"; indirectFH($fh); sub indirectFH { my $fh = shift; while (<$fh>) { print "Passing Indirect FH: $_"; } } close($fh); # Passing File Glob open(FH, $script) or die "Can't open $script: $!"; fileGlob(\*FH); sub fileGlob { my $fh = shift; while (<$fh>) { print "Passing File Glob: $_"; } } close(FH); 1; __END__