#!/usr/bin/perl

use Net::FTP;

$ftp = Net::FTP->new("host.name");
$ftp->login("user","password");
@data=$ftp->ls("-Rla");
$ftp->quit;

foreach $line (@data)
        {
        print $line."\n";
        }