print "output file name: \n";
chomp($outfile=<STDIN>);

open (DATA, "+>$outfile" ) || die;