perl -d:DProf example.pl && dprofpp tmon.out