Select Code to Download

my @dir = $ftp->($file);
if ( $dir[0] =~ /$size/ ) {
...
else {
    warn "File size differs for $file ($size): $dir[0]\n";
}