Select Code to Download

system('usermod','--login',$newname,'--home',$newname,$oldname)
    ==0 or die "usermod failed, \$?=$?";
system('groupmod','--new-name',$newname,$oldname)
    ==0 or die "groupmod failed, \$?=$?";