use File::Slurp qw(read_dir);
...
use Data::Dumper;