Select Code to Download

  print DATAFILEOUT "$company_name|$time|$email|$member1|$member1phone
+|$data|$expiretime|$pictureurl|$password|$website|$member2|$member2ph
+one|$address|$citystatezip|$fax|$catlisting\n";

print DATAFILEOUT @temp;

for (1 .. $#temp) {
   print DATAFILEOUT $temp[$_];
}

my $temp_length = @temp;
for my $current_array_index ( 1 .. ($temp_length - 1) ){
  print DATAFILEOUT $temp[$current_array_index];
}