Select Code to Download

use strict;
my $newdata = '124|20030812|uiy|kjh|87';
...
}
print DATAFILE $newdata,"\n";
close DATAFILE;