#!/usr/local/bin/perl

use Net::INET6Glue;
use Net::FTP;

$username='anonymous';
$password='sisis@oclc.org';
$directory='pub';
$filename='file';
$ipaddr='::1';
# $ipaddr='fe80::250:56ff:feb6:5310%eth0';

$ftp = Net::FTP->new($ipaddr, Debug=>1, Passive=>1)
    or die "Can't connect: $@\n";
$ftp->login($username, $password)
    or die "Couldn't login\n";
$ftp->cwd($directory)
    or die "Couldn't change directory\n";
@lines = $ftp->ls()
    or die "Couldn't list dir\n";
foreach $file (@lines) {
  print "file: $file\n";
}
$ftp->get($filename)
    or die "Couldn't get $filename\n";
$ftp->quit()
    or die "Couldn't quit\n";
exit;