#!/bin/perl

require "cgi-lib.pl";

if (&ReadParse(*input)) {
     print &PrintHeader;
     print "<h1>The responce from your bounce request</h1><p>";
     print $input{'inp'};
}
else {
    print &PrintHeader;
    print "<h1>Type your bounce requeset.</h1><p>";
    print '<form method="post" action="bounce.pl">';
    print '<input name="inp"><input type="submit"></form>';
 }

