Select Code to Download

my $path = "\\sottbuild1f\\blacksea\\daily\\oqp\\*inst.tar.gz";
print "Searching files in >>$path<<\n";
my @files = glob($path);

use File::Glob qw(bsd_glob);

my @programs = glob 'C:/Program Files';