Create a subroutine
#!/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"; }