#!/usr/bin/perl -w use strict; require "common.sub"; $username = "common::auth::user"; $admin = "common::auth::admin";