Select Code to Download

Variable "@dirlist" will not stay shared at test.pl line 17.
Variable "@dirlist" will not stay shared at test.pl line 24.

#!/usr/bin/perl -w

...
    }

}