Select Code to Download

    #!/usr/bin/perl -w
    use strict;
...
    print "UIDs real $<  \t effective $>\n";
    ($>, $<) = ($<, $>);      # swap real uid and effective uid
    print "UIDs real $<  \t effective $>\n";

    Perl version: 5.008008
    UIDs real 1020       effective 15001
    UIDs real 15001       effective 1020
    UIDs real 1020       effective 15001
    UIDs real 15001       effective 1020

    Perl version: 5.010000
    UIDs real 1020       effective 15001
    UIDs real 1020       effective 1020
    UIDs real 1020       effective 1020
    UIDs real 1020       effective 1020