#!/usr/bin/perl -w

print <<"END"


END

if (open(MYFILE, "newuser.ans")); {
    while(<MYFILE>) {
	print;
    }
}

    
    $password = '';
    $username = '';

    print "   Choose your login name: ";
    chomp($username = <STDIN>);
    if($username eq '') { $username = 'idiot_fool_moron'; }
    print "\n";
    print "     Choose your password: ";
    chomp($password = <STDIN>);


system "echo \"$username $password\" >> tvpl";

$username =~ s/\s/_/;	 
system "echo -e '$username is a new user!' > /dev/console";
exec "./main $username";
