Select Code to Download

$sql->do(<<SQL);
...
)
SQL

for($$i=0; $i<$#watcher+1; $i++) {
...
    ...
}

for my $watch (@watcher) {
}