Select Code to Download

#!/usr/bin/perl -w
#==============================================================
...
        $ftph->cwd("..");
    }
}

$ ./GetDirStruct.pl
mkdir ./Files;
...
mkdir ./Processing;
mkdir ./Security;
mkdir ./Sysmenu;