# Hauptprogramm #!/usr/bin/perl -w #package MyConf; use strict; use warnings; use vars qw(%template @EXPORT_OK); use base 'Exporter'; @EXPORT_OK = qw(%template); require "rootssubs.sub"; my %template = ("site" => "home"); print "Content-type: text/html\n\n"; &test; exit(0);