#!/usr/bin/perl use CGI qw/:standard/; print header(-type => 'text/html'); my $points = [ {x => -0.6394, y => 52.9114, title => 'China Inn'}, {x => -0.64, y => 52.909444, title => 'One on Wharf'}, {x => -0.64454, y => 52.91066, title => 'Hop Sing'}, {x => -0.642743, y => 52.9123959, title => 'Nicklebys'}, {x => -0.6376, y => 52.9073, title => 'Siam Garden'}, ]; page_header(); js_addmarker(); js_movemap(); js_onLoad(); page_footer(); sub page_header { print < MCslp Maps Chapter 6, Ex 9

Restaurants

EOF }