#!/usr/bin/perl -w

package Ring;

use strict;

sub new {
    my $class = shift;
    my $self  = { };

    if ( !( $class ) ) {
        die "Usage: 'Ring->new()'\n";
    }
    bless $self, $class;

    $self->{ring} = "Pretty";
    return $self;
}

1;