open F, "<file.txt" or die $!;
while (<F>) {
    print $_;
}
close F;