#!/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> ); }