Select Code to Download

use warnings;
use strict;
...

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