#! perl -slw
use strict;
use Net::FTP;

my $ftp = Net::FTP->new( 'ftp.software.ibm.com' );
$ftp->login( 'anonymous', 'anonymous@' );
$ftp->cwd( '/ftp' );
$ftp->ascii;

my $xfr = $ftp->retr( '00_Catalog' );

my $buf;
$xfr->read( $buf, 200 );

print $buf;