#!/usr/bin/perl
----^^--------- # you have an "e" here

##</code><code>##

use warnings;
use strict;

my $fh = open '<', 'Test1.txt'
  or die "can't open the damned file!: $!";

while (<$fh>){
    chomp; # this will remove the newline from $_
    print "I saw $_ in the file\n";
}

##</code><code>##

#!/usr/bin/perl

##</code><code>##

#/user/bin/perl
----^-- remove the "e"