Select Code to Download

$count=0;
$sth->bind_columns(\($siteid, $imageurl));
while($sth->fetch()) {
 $sites{$siteid}=$imageurl;
 $count++;
}

$sth->bind_columns(\($siteid, $imageurl));
while($sth->fetch()) {
    $sites{$siteid} = $imageurl;
}
$count = keys %sites;

my $error = 1;
if ( my($type, $size) = ( head($imageurl) )[0, 1] ) {
    if ($size < 25600) {
...
} else {
    print FILE "update big_ass_table set imagedown=0 where siteid=$sit
+eid and imageurl='$imageurl';\n";
}