Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    dodir($dir_name); 
}

File /home/myprog/xxxabc is present in /home/myprog/
 File /home/myprog/xxxpqr is present in /home/myprog/