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