my $file = "somefile.txt";

print "Opening and displaying $file:\n";
include($file);
print "Complete\n";
exit;

sub include {
	my $include = $_[0];
	open(INFILE,"<$include") || die "Can't find or open $include\n";
	@FileContent = <INFILE>;
	close(INFILE);
	foreach $line (@FileContent) { print $line; }
}

##</code><code>##

Line 1
Line 2
Line 3
Line 4
Line 5
Line 6
Line 7
Line 8
Line 9
Line 10

##</code><code>##

Opening and displaying somefile.txt:
Line 1
Line 2
Line 3
Line 4
Line 5
Line 6
Line 7
Line 8
Line 9
Line 10
Complete