CGI Perl

  
  
  

Customer Order Tracking

  
Enter order number:  
  

  
  
  
  

            
#!/usr/bin/perl -w 
# CGI script using CGI.pm module.  
use CGI;  
  
$form = CGI->new();  
$orderno = $form->param('orderno');  
  
print $form->header();  
  
print $form->start_html(-title=>'Customer Order Tracking',-BGCOLOR=>'white');   
print "

Your Order Number

\n";  
  
print "Your order number was: $orderno.\n";  
print "

\n";  # Paragraph  
  
# End HTML form.  
print $form->end_html();