read a file in perl
#!/usr/bin/perl use warnings; use strict; my $filename = 'c:\temp\test.txt'; open(FH, '<', $filename) or die $!; while(<FH>){ print $_; } close(FH); Code language: Perl (perl)
Source: www.perltutorial.org