forgot one 'my' for $outfile in etc/perllib/write