#!/usr/bin/perl

use warnings;
use strict;

my $file = "yourFile.txt";
open( FILE, $file ) or die( "Error opening $file: $!" );
my $filehandle = *FILE;
readhandle( $filehandle );
close( FILE ) or die( "Error closing $file: $!" );


sub readhandle
{
   my $fh = shift();
   print while ( <$fh> );
}