Select Code to Download

use strict;
use Carp;
...
        readin_dir( $filenames, \@subdirs, $ext ) if ( @subdirs );
    }
}

#!/usr/bin/perl

...
        readin_dir( $filenames, \@subdirs, $ext ) if ( @subdirs );
    }
}