Select Code to Download

<form method="POST" action="http://somesite.com/cgi-bin/script.pl">
<input type="Submit" value="Update">
...

sub error { print $q->header, shift; }

#!/usr/bin/perl -w

...
else {
    die "Update already in progress. Aborting!";
}