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

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

close FILEHANDLE;

##</code><code>##

Use of uninitialized value $_ in print at ./file.pl line 6, <FILEHANDLE> line 1.