$ cat > rubbish
sdfhi
rtrthr
dgdf
$ perl -Mstrict -Mwarnings -e '
> my $file = q{rubbish};
> my $fh = openFunc( $file );
> print while <$fh>;
> 
> sub openFunc
> {
>     my $fileToOpen = shift;
>     open my $fileHandle, q{<}, $fileToOpen
>        or die qq{open: $fileToOpen: $!\n};
>     return $fileHandle;
> }'
sdfhi
rtrthr
dgdf
$