ub File_Length {
        $DEBUG && warn "File_Length\n";
        $DEBUG && warn "FILE = '" . $_ . "'\n";
        $FILE = chomp($_);
        $DEBUG && warn "FILE = " . $FILE . "\n";
        $COUNT = 0;
        while (<$FILE>) {
                $DEBUG && warn "COUNT = " . $COUNT . "\n";
                $COUNT++;
        }

        $DEBUG || print "File Length is " . $COUNT . "\n";

        $COUNT;
}