#!/usr/bin/perl -w
use strict;

my $domain = "lunarmedia.net";

do 'genheader';
do 'genlimit';
do 'genfooter';

##</code><code>##

print "<VirtualHost $domain>\n";

##</code><code>##

#!/usr/bin/perl -w
use strict;
require genheader;
require genlimit;
require genfooter;

my $domain = "lunarmedia.net";

&genHeader($domain);
&genLimit;
&genFooter;

##</code><code>##

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