my $lsize=-s $filename;
my $rsize=$remote->size($filename);
if ($lsize!=$rsize) {
 croak "Corruption!";
};