Select Code to Download

my $flock = 1;    # set to true to flock
my $timeout = 10; # set to number of seconds before flock timeout
...
      DieNice("Can't lock file '$file': $!\n") if ++$count >= $timeout
+;
   }
}

$mode       =~ tr#a-z_##cd;   # untaint that param!

if ( $mode =~ /^([a-z_]+)_go$/ ) {
    $page   = $1 or die "no page given!";

open FILE, ">>$file" or die "Can't append to $file, Perl says $!\n";

sub main {

...

  $draw->html_end();
}

sub main {

...
    }
    $draw->html_end();
}

sub DieNice {

...
    $unindent =~ s/^[ \t]+//gm;
  return $unindent;
}