use Class;
use Class::SubClass;

my $obj = Class->new(...authentication vars...);