my @dirs;
my $list;