Select Code to Download

sub new
{
...
    # equivalent to $self->{token} = \%( a => 5 );
    return bless($self, $class);
}

sub set_token
{
...
       my $self = shift;
       return keys %{$self->{token}};
}