#!/usr/bin/perl
use fetcher;
use strict;

print "Content-type: text/html\n\n";

my $dat;
if($ENV{'CONTENT_LENGTH'} !=0) {

        $dat = fetcher->gather();

        foreach(keys %dat) {
                print "$_ = $dat{$_}<br>\n";
        }
}

print <<endofhtml;
        <form action="index.cgi" method="post">
        <input type="text" name="b1"><input type="text" name="b2">
        <input type="submit">
        </form>
endofhtml

##</code><code>##

package fetcher;

sub gather {
   my %tmp;
   $tmp{'name'} = "ironcom";
   $tmp{'pwd'}  = "pwd";

   return \%tmp;
}
1;