Select Code to Download

#!/usr/bin/perl -w
use strict;
...
do 'genheader';
do 'genlimit';
do 'genfooter';

print "<VirtualHost $domain>\n";

#!/usr/bin/perl -w
use strict;
...
&genHeader($domain);
&genLimit;
&genFooter;

sub genHeader {
  my $domain = shift;
  print "<VirtualHost $domain>\n";
}