Select Code to Download

unless (open (Q_NEW_USER, ">/home/web/new_user.dat")) {
        print "Unable to open file for data storage.";
} else {
        $q->save(\*Q_NEW_USER);
}

unless (open (Q_NEW_USER, "/home/web/new_user.dat")){
         my $message = "unable to open data file.";
...
} else {
        $q_new_user = new CGI (\*Q_NEW_USER);
}