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

##</code><code>##

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