Select Code to Download

#...
   if ($req_method eq 'POST') {
...
}
&RunServer;
1;

...
Connection 69 at Fri Nov 11 16:10:53 2005 from 127.0.0.1
...
Connection 70 finished.
Connection 70 closed.
...

#!/usr/bin/perl -w
use strict;
...
    print H $str . qq|\n|;
    close(H);
}