http://qs1969.pair.com?node_id=1216609


in reply to lying about program name

FWIW

You didn't close your use statement on line 2 of bar

#!/usr/bin/perl -w use strict; __________^ system { './foo' } 'bar', @ARGV;

Which fixed it for me. :-)

EDIT:
Didn't -w scream at you?

Evil is good, for without it, Good would have no value
λɐp ʇɑəɹ⅁ ɐ əʌɐɥ puɐ ʻꜱdləɥ ꜱᴉɥʇ ədoH