#!/usr/bin/perl
use strict;
use warnings;
use IO::Handle;
open (INPUT, "myfile")    || die $!;
if (my $fh = STDIN->fdopen(\*INPUT, "r")) {
	print <>;
	$fh->close;
}
close INPUT;