Select Code to Download

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

close FILEHANDLE;

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