#!/usr/bin/perl -w
use strict;

my $infile="file1.txt";  # input filename

# Open; assign filehandle; exit on error:
open (IN, "<$infile") or die "Open of $infile failed: $!";

# Loop: read lines from the file
while (<IN>) {
  print $_;              # Each input line is assigned to $_
}

# Clean up and exit:
close(IN);
exit;
