Select Code to Download

#!/usr/bin/perl -wT
#
...
     if ($> != $otherid) {die "seteuid failed: $!\n"}
     system("id");
}