my $lin = "Lines: \n";
chomp($lin);
enter:
{
print("Please enter a file name: ");
$fileName = <STDIN>;
chomp($fileName);
 
if($fileName !~ m/\.TXT$/i)
 {
  open(READFILE, "$fileName.txt") || die "couldn't open file: $!";
        }
else
 {
 print("re-enter filename!\n");
 redo enter;
}
}
while(<READFILE>)
{
package Lines;
 $count += split(/\n\n/, $_);
}
print("$lin $Lines::count\n");
close(READFILE);