$ diff -au a.pl <( perl a.pl -d <( perl a.pl -e a.pl key ) key )

$