perl -Mdebug=MIDDLE test.pl