#!/usr/bin/perl -w
use strict;

open (FILEHANDLE, '<', 'some.file') or die "Can't open some.file for reading.\n";
<FILEHANDLE>;
print;

close FILEHANDLE;