#!C:\Perl\bin\perl.exe -wT
  use strict;
  use DBI;
  use CGI   qw/:standard/;
  use CGI::Carp   qw/fatalsToBrowser/;
  display_page("Got here!");

  #routine to display any messages generated
  sub display_page {
    my $message = shift;
    print
        header,
        start_html,
        p( $message ),
        end_html;
  }