my @dir = $ftp->($file);
if ( $dir[0] =~ /$size/ ) {
    unlink $file or die "Can't unlink '$file': $!";
}
else {
    warn "File size differs for $file ($size): $dir[0]\n";
}