$ cat child
#!/usr/bin/perl
print("child\n");
$ ls -l child
-rwxrwxrwx 1 ikegami group 34 2008-12-13 08:15 child
$ perl -T -e'%ENV=(); system("./child") and die("error: $?")'
child