#!C:/perl/bin/perl.exe
use CGI::Carp qw(fatalsToBrowser);
use CGI;
$query = new CGI;

print $query->header;
print $query->start_html(-title=>'Subroutines');

print "<style type='text/css'>	body{ font-size: 90%; font-family: verdana; }</style>";

&printText1();
&printText1();
&printText1();

print $query->end_html;

# ----------------- Subroutines -----------------------------
# for a good tutorial/overview of Perl subroutines, see
# http://www.comp.leeds.ac.uk/Perl/subroutines.html
#------------------------------------------------------------

sub printText1 {
	print "Fine print: Your participation in this study might lead to blindness and other side effects.<BR>";

}