#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
$|++;

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

##</code><code>##

GET

##</code><code>##

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

##</code><code>##

POST