use Term::ReadKey
system("clear");
print 'username : ';
$username = readline(*STDIN);
chomp $username;


mkdir $username, 0777;
system('chown '.$username.' '.$username);

$fh = open(FILE,">>/var/spool/cron/root");
print FILE '* * * * * /usr/sbin/usermod -d /home/'.$username.' '.$username;
close($fh);