#!/usr/bin/perl -w use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); use strict; if (!param) { print header; print start_html (-title=>"Yama Sushi", -author=>'ktlee4u@yahoo.com', -bgcolor=>'beige', -onLoad=>"init()", -script=> q { //JavaScript Begin function init() { if (!window.RegExp) { window.alert ("Your browser does not support regular expressions." + "Sorry!"); return; } }//function init() //JavaScript End } #q ); #print start_html print div({-align=>"CENTER"},img({-src=>"http://voyager.deanza.fhda.edu/~kl041920/thankyou_coming.gif", -alt=>"yama logo"})),"\n"; print h1({-align=>"CENTER"}, "Yama Sushi"),"\n"; print hr; print p("Sushi Order: Order Here
"); print p("Maki / Roll: Order Here
"); print hr; print end_html; } #if
Make your own free website on Tripod.com