#!/usr/bin/perl

open my $IN2, "<", "foo.txt" or die;

while (my $seq = <$IN2>) {
    print "line: '$seq'\n";
}