Select Code to Download

sub get_dir_list {
        my ($him,@files) = @_;
...
                while (-d $file) {
                        $file =~ s|/([^/]+)$||;
                        my $last = $1;

 $file =~ s|/([^/]+)$|| or last;