#!/usr/bin/perl

use warnings;
use strict;

use Net::FTP::Scalar;

$Net::FTP::Scalar::SCALAR_MODE = 1;
my $OUT_FILE;

my $ftp = Net::FTP::Scalar -> new("ftp.isi.edu", Debug => 0);
$ftp -> login("anonymous", "foo@");
$ftp -> cwd("/in-notes");
if (not $ftp -> get("rfc1001.txt")) {
        $ftp -> quit;
        die "could not ftp ...\n";
}
else {
        $OUT_FILE = $Net::FTP::Scalar::OUT_FILE;
}

print $OUT_FILE;

exit 0;