package COMMON::AUTH; use strict; use Exporter; @COMMON::AUTH::ISA = qw(Exporter); our ($user,$admin); @EXPORT = qw($user $admin); $user = $ENV{'REMOTE_USER'}; $admin = 'admin'; 1;