open (my $f, '<', 'input.txt');
while (<$f>) {
    print;
}
close $f;