#!/usr/bin/perl -w
use strict;
my $filename ="readAFile.pl";
open (FILE,$filename) or warn "Error opening File $!";
while(<FILE>)
{
	print $_;
}
close(FILE);