open FILE, "<$file";
my @lines = <FILE>;
print "Lines: " . scalar(@lines) . "\n";
print "Chars: " . length(join '', @lines) . "\n";
close FILE;