system ("perl -d:CallTrace Foo.pl");