Select Code to Download

print "real: $<, effective $>\n";
$> = 1000; # drop privileges
...
}
# unprivileged again
print "real: $<, effective $>\n";