use strict; use IO::File; die "usage: $0 [filename.txt]" if $#ARGV < 0; my $f = new IO::File $ARGV[0], "r" or die "File $ARGV[0] not found."; my $text = do {local $/; <$f>}; print < $ARGV[0] 
$text
HTML ; #### my $wordcount = $text =~ /\w+/g;