Name "common::auth::admin" used only once: possible typo at
Name "common::auth::user" used only once: possible typo at

##</code><code>##

package common::auth;
our ($user, $admin);
#use vars qw($user $admin);
$user = $ENV{"REMOTE_USER"};
$admin = "admin";       # Set to the Administrators username

##</code><code>##

#!/usr/bin/perl -w

use strict;
require "common.sub";

$username = "common::auth::user";
$admin  =  "common::auth::admin";