#!/usr/bin/perl -- use warnings; package mycode_pegs; require Exporter; @ISA = qw (Exporter); @EXPORT = qw(@EXPORT_OK); @EXPORT_OK = qw(%mycode_pegs); use strict; use common qw(%form $dbh %session); use common_config qw(%common_config); use site_config qw(%site_config); use mycode_config qw(%config); use mycode; use mycode_create_orders; use vars qw(%mycode_pegs);