Phoenix.pm: Code problem

[Giffin Ron-P08295]

Hi,

Ok...  My fear of being a dummy is overpowered by my need to
finish this script.  $in_file contains 44 word columns separated
by tabs.

    open ( IN_FILE, $in_file ) || die ........
    open ( OUT_FILE, "> $out_file" ) || die .......
    while ( <IN_FILE> )
        {
        print OUT_FILE $_ ;
        $size = `wc -w $out_file | tr -s " " | cut -f1 -d " "` ;
        print "Unix word count = $size\n" ;
        }
    close ....
    close ....

$size is always 0 ---- What's wrong with this ( bet I going to be
embarrassed )


  -- Ron