open(FH,"file.txt");
while(<FH>)
{
        $var = $_;
        print "$var\n";
}
close(FH);