debug code delete at perlstudy.pm