minimal example

328793.pl (text/plain), 231 bytes, created by Torsten Veller (RETIRED) on 2010-08-03 19:24:02 UTC

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require './test.pl';
}
use Config; 

#print "$Config{d_seteuid}\n";

$oldeuid = $>; 
eval '$> = 1';
print "# oldeuid = $oldeuid, euid = $>\n";
print "$Config{d_seteuid}\n";