public class Example
{
    private String name;
    private int score;

    public Example(String myName, int myScore)
    {
        name = myName;
        score = myScore;
    }

    public String getName()
    {
        return name;
    }
}

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

package Example;

# Can variables be defined here? With package level 
# visibility?

sub new {
    my $class = shift;

    my $self = {
        _name => shift,
        _score => shift,
    };

    bless $self, $class;
    return $self;
}

sub getName {
    my ($self) = @_;
    return $self->{_name} || 'No name has been defined!';
}

sub getScore {
    my ($self) = @_;
    return $self->{_score} || 'No score has been entered!';
}

1;