#!/usr/bin/perl 
print "Content-Type: text/html \n\n"; 
print "Program starts.\n"; 
&bigHeader; 
print "Program ends.\n"; 

# subroutines below this line 
sub bigHeader { 
    print "<h1>Welcome to Auto!</h1>\n"; 
}