#!/usr/bin/perl -wT use strict; my $time = localtime; my $remote_id = $ENV{REMOTE_HOST} || $ENV{REMOTE_ADDR}; my $admin_email = $ENV{SERVER_ADMIN}; print "Content-type: text/html\n\n"; print < Welcome to Mike's Mechanics Database Mike's Mechanics

Welcome from $remote_id! What will you find here? You'll find a list of mechanics from around the country and the type of service to expect -- based on user input and suggestions.

What are you waiting for? Click here to continue.

The current time on this server is: $time.

If you find any problems with this site or have any suggestions, please email $admin_email.

END_OF_PAGE