Select Code to Download

system("clear");
print "CREATE ACCOUNT:\n\n";
...
   }
}
undef @local_passwd;

print $clear_screen;
print "CREATE ACCOUNT:\n\n";
...
      last;
   }
}