#!/usr/bin/perl

use CGI;

$q = new CGI;

print $q->header, $q->start_html;

$me = $ENV{SCRIPT_NAME};

$amount = $q->param('amount');

$balance = $q->param('balance') + $amount;


print qq{
  <form>
    Your balance is currently: $balance <p>

    Type the amount: <input type="text" name="amount"> <p>

    Click <input type="submit" value="Proceed"> to proceed.


    <input type="hidden" name="balance" value="$balance"> <p>
  </form>
};

print $q->end_html;