#!/usr/bin/perl -T

use strict;
use warnings;

my $file = shift;

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

__END__