my $datafile;
open (OUT, ">", $datafile ) or die "Can't open $datafile for write, $!";