Select Code to Download

#!/usr/bin/perl
# Search_Dir.plx
...
    }
    #close SUB;
}

if(-d $file){
    search_dir($file);
}elsif($file =~ /\$\$/){
    print OUTPUT "Possible LIST\$\$ file found: $file\n";
}