Since I'm on win32 I can't do a fork, and running in a separate thread seems to cause problems when the thread gets returned, crashing wickedly.

EG:

while ($ftp->put($file)) {
    warn "Still putting data!\n";
    $ftp->hash("", 1);
    }
[download]

Doesn't work as expected, printing hashes on stdout during the transfer.

That's not how you invoke it. Either make your constructor like such:

 my $ftp = Net::FTP->new( "some.host.name", Hash => 1);
[download]

Or before you call put call the hash method:

  $ftp->hash( 1 );
[download]

-derby

I actually found a better way for my particular situation, that I surprisingly couldn't find in the monk's search setup:

my @file_name = split /\//, $i;
my $xfer_handle = $ftp->stor($file_name[-1]); 
my $bytes_read = 0;
my $buffer = "";
my $bytes = 0;
my @file_info = stat($i);

sysopen(FILE, $i, 0);
binmode(FILE);
while (($bytes_read = sysread(FILE, $buffer, 1024)) != 0) {
  $xfer_handle->write($buffer, $bytes_read);
  $bytes = $bytes + 1024;
  if ($bytes > $file_info[7]) { $bytes = $file_info[7]; }
  print "wrote $bytes of $file_info[7] so far...\n";
  }
my $check_xfer = $xfer_handle->close();
[download]

$xfer_handle->close() returns a 1 if the server reports a 2xx code.