Select Code to Download

#!/usr/bin/perl -w
use strict;
...
$|++;

print header, start_html, $ENV{REQUEST_METHOD}, end_html;

GET

...
$|++;
$ENV{REQUEST_METHOD} = 'POST';    # Added this line
...

POST