Name "main::DATA" used only once: possible typo at /Users/jimk/bin/perl/phalanx.pl line 19.
    readline() on unopened filehandle DATA at /Users/jimk/bin/perl/phalanx.pl line 19.