programming-examples/perl/Subroutine/Create a subroutine.pl
2019-11-15 12:59:38 +01:00

11 lines
227 B
Perl

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