Shell Programming and Scripting

$ftpobj = Net::FTP -> new ("$ftpsrv") || die "Cannot connect to FTP $ftpsrv";
$ftpobj -> login("user","passwd");
$ftpobj -> cwd ("/root_dir");
@rootdir = $ftpobj -> pwd();
print @rootdir , "\n";
@dirlist = $ftpobj -> ls();
foreach $fl (@dirlist){
@dlist = $ftpobj -> ls("/root_dir/$fl");
    foreach $f (@dlist){
        @dlistfin = $ftpobj -> ls("$f");
        print "\n----------------------------------------------------------------------------------------\n";
        print "$f \n";
        print "----------------------------------------------------------------------------------------\n";
        foreach $ffin (@dlistfin){
            print $ffin ,"\n";
    }
    }
    }

$ftpobj -> quit;