$ENV{'PATH'}=q(/sbin:/bin:/usr/sbin:/usr/bin);

my ($um,$gm);

qx/usermod --login $newname --home $newname $oldname/;
$um = $?;
if ($um==0) {
    qx/groupmod --new-name $newname $oldname/;
    $gm = $?;
}