Select Code to Download

#!/usr/bin/perl -w
use strict; 
...
    my $full_dir_path = $File::Find::name;
    print "$full_dir_path\n";
}