#!/usr/bin/perl -w

use CGI qw/:standard :html3/;
my $q = new CGI;
my $var = "100";

print
   $q->header( -type=>'text/html'),
   $q->start_html(),
   $q->start_form(-method=>'post',
                  -action=>"another.cgi"),
   "Enter Item Number: ",
   $q->textfield(-name=>'var_data', -size=>'6',
                 -value=>"$variable"),
   $q->end_form,
   $q->end_html;

exit;