Help for this page

Select Code to Download

Select or download this

$ cat > child
#!/usr/bin/perl
...
$ perl -e'%ENV=(); system("./child") and die("error: $?")'
Setuid/gid script is writable by world.
error: 6400 at -e line 1.

Select or download this

$ cat > child
#!/usr/bin/perl
...

$ perl -T -e'%ENV=(); system("./child") and die("error: $?")'
child