$today = `date +%D`;
$reg_data = "$handle|$crpw|$first_name}|$last_name|$email_addy|0|$today";
open trf, ">/tmp/.$handle";
print trf $reg_data;
close trf;