Select Code to Download

<form action="launcher.pl" method="post">
<input type="submit" name="sub" value="Run this!">
</form>

#!c:/perl/bin -w
use strict;
...
# now you can put a message to the user
print $q->header; # send correct header, text/html
# put HTML here