my $ftp = Net::FTP->new("$home")    or die "Can't connect: 1 $@\n";
$ftp->login($username, $password)       or die "Couldn't login - 1\n";
$ftp->cwd($directory)                   or die "Couldn't change directory - 1\n";
$ftp->get($filename)                    or die "Couldn't get $filename - 1\n";
$ftp->put($filename)                    or die "Couldn't put $filename\n";
my @lines = $ftp->ls("/data/edit");