Please, fix the problems indicated by others. Note that cuserid and $> both reflect changes made from within the script:

$ sudo perl -MPOSIX - $UID
print cuserid, " $< $>\n";
$> = shift;
print cuserid, " $< $>\n";
__END__
[download]