Select Code to Download

#!/usr/bin/perl

...
    last if ( /^n/i );
    print shift @list;
}

...
open( FIND, '-|', 'find', $basedir, @opts ) or die "find: $!";
...
    }
}
close FIND;