Select Code to Download

#!/usr/bin/perl -w
use Data::Dumper;
...
    push(@files,$_) if(-d "$_");
}
print "\n". Dumper(@files) ."\n";

sean@seanc:~/code/temp$ ls -l
total 16
...
$VAR1 = 'dir1';
$VAR2 = 'dir2';
$VAR3 = 'dir3';