Select Code to Download

# lots of baby perl...
@my_list = 1, 2, 3;
# lots of baby perl...

for ( my $i = 1; $i <= 10; $i++ ) {
  ...
...
for ( 1 .. 10 ) {
  ...
}

if( ! open LOG, ">>logfile) {
  die "Cannot create logfile: $!";
}