my ($lastchar,$lines,$file,$paragraphs,$ch);
print("enter filename: ");
my $file = <STDIN>;
chomp($file);
if ($file !~ m/\.txt$/)
{
$file .= ".txt";
} 
open(READFILE, "$file") || die "No File Found";
my $i = 1;
while ($ch = getc(READFILE))
{
if ($ch eq "\n") # if newline...
 {
  $lines++; # count another line
  if ($lastchar eq "\n") # if last character also newline
  {
  $paragraphs++; # count another paragraph
  }
 }
}
print ("There are " . $i . " Lines in " . $file);
close(READFILE);