{
    open my $fh, '<', $file or die $!;
    while (<$fh>) {
        print;
    }
}