sub read_cookie {
 	my $cookie = $_[0];
    use My::Crypt;
	my $crypt = My::Crypt->new( debug => 0 );
    my $den_cookie =  $crypt->decrypt($cookie, 'lock it down');
    my ($user_name,$user_id,$date,$first_name,$last_name) = split /\|/,$den_cookie;
    return ($user_name,$user_id,$date,$first_name,$last_name);
}