#!/usr/bin/perl use strict; use Net::FTP; my $BYTES_PER_HASH = 1024; # child my $ftp = Net::FTP->new("ftp.microsoft.com", Debug => 1); $ftp->login("anonymous","-anonymous\@"); $ftp->cwd("MISC"); $ftp->hash(\*STDOUT, $BYTES_PER_HASH); $ftp->get("NBFCP.TXT"); $ftp->quit;