Also note that you could make your main loop much simpler using the <> operator.

#!/usr/bin/perl -w

use strict;
use Getopt::Std;

my $prog = $0;
$prog =~ s|.*/||;

my %opts;
getopts('o:', \%opts);

my $cmd = $opts{o} || 1;
my %wordDb = ();

# Works exactly like your posted code is supposed to
while(<>) {
  print "$ARGV ==> $_";
}
[download]