Select Code to Download

use File::Find;
use File::Spec::Functions qw(rel2abs);
...
    print rel2abs($_) 
      unless $_ eq "." or $_ eq "..";
}

use File::Find;
use File::Spec::Functions qw(rel2abs);
...
    print $File::Find::name
      unless $_ eq "." or $_ eq "..";
}