#!/usr/bin/perl use strict; use warnings; use CGI; my $cgi = CGI->new(); print STDOUT "Content-type: text/html\n\n"; print "\n"; print "\n"; print " \n"; print "Ticket Purchases for Special Events"; print ""; print ""; print "
"; print "

User ID: "; print "

"; print ""; print "";