Select Code to Download

    my $now = time;
...
        print DATAFILEOUT @temp;
        close DATAFILEOUT;
    }

  print DATAFILEOUT join( '|', @userinfo{qw( 
    company_name time email member1  member1phone  data
    expiretime   pictureurl password website    member2
    member2phone address    citystatezip fax catlisting
 )}, "\n";

    $emailme   eq 'yes' and emailme( $myemail, $userinfo{'email'} );
    $emailuser eq 'yes' and emailme( $userinfo{'email'}, $myemail );