Mega Code Archive
Passing file name to functions
<![CDATA[
#!/usr/bin/perl
use warnings;
use strict;
my $file = "yourFile.txt";
print( "\n\nAnd finally...\n" );
readfile( $file );
sub readfile
{
my $file = shift();
local *FILE;
open( FILE, $file ) or die( "Error opening $file: $!" );
print while ( <FILE> );
}
]]>