Select Code to Download

 ############  SCAN DIRECTORY SUBROUTRINE ####################
{
    my @paths;
...
        return $paths;
    }
}

if (defined $paths){
              ###do something;
              print "paths defined"; }
else{
#do something else;
print "paths not defined"; }