Select Code to Download

sub get_directory{
    my @dirs = glob("C:\\Documents and Settings\\mydirectory\\Desktop\
+\KOMP\\*");
    foreach my $maid_dir(@dirs){
...
        }    
    }        
}

 #!/usr/bin/perl
use strict;
...
        }    
    }        
}