#!/usr/bin/perl

# Note: file junk.txt must be in same directory, or else
# must specify an absolute path
 
open(FP, "<junk.txt") || &pr_error($!);
@lines = <FP>;
close(FP);

foreach $line(@lines)
{
  print "$line";
}

sub pr_error
{
  print "Received error on opening file.\n";
  print "Error message: $_[0]\n";
  exit;
}