use warnings;
use strict;
use Data::Dumper;
use File::Slurp;

my @lst = read_dir('.');
print Data::Dumper->Dump([\@lst], [qw/lst/]);