package auth;
use Devel::Peek;
sub new
{
	my $pkg = shift;
	my $self = {};
	bless ($self, $pkg);

	my $cur_time = time;

	$auth_sessions { $cur_time } = 0;
	$self->{ SESSIONID } = $cur_time;

        Dump $self;

	return $self;
}

sub temp
{
	my $self = shift;
	print "\n\n\ntemp\n";
	Dump ($self);

}