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