use strict;
use warnings;

open my $fh, '<', 'gibsnicht.txt' || die $!;
while (<$fh>)
{
    print qq($_);
}
close $fh;