UBB.Developers Forums Community Development Programming PHP and Server-side Scripting a script (that to your surprise DOES work)

http://opena.virtualave.net/cgi-bin/multi.cgi

===========================================
#!/usr/local/bin/perl

# You need Cgi.pm

use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);

$q = new CGI;
$a = param('action');
$n = $q->param('Mul');
$m = $q->param('Mult');
$final = $n * $m;
print $q->header;
print $q->start_html;

if ($a eq "mul"){
&main;
}
if ($a eq ""){
&here;
}

sub here{
print $q->start_form;
print "n";
print $q->textfield(-name=>'Mul');
print " x ";
print $q->textfield(-name=>'Mult');
print " ",$q->submit;

}

sub main{
&here;
print "


$n x $m = $final ";

}

print $q->end_html;

============================================
it realy works! I guess buying that $50(*cough* $49.95 ) O'Realy book helped!