use Data::Dump qw( pp );
pp <*.pl>;