- next TRY;
- }
- my $recv = do { local $/; <$rdr> };
- close $rdr or die "$desc: close() failed : $!";
- if ($recv) {
- chomp $recv;
- if ($msg eq $recv) {
- ++$ok;
- } else {
- print STDERR " transfer error\n";
- last TRY;
- }
- } else {
- print STDERR " transfer failure\n";
- last TRY;