#!/usr/bin/perl

package RGBColor {
    use fields qw(red green blue);

    sub new {
        my RGBColor $self = shift;
        my %params = @_;

        unless (ref $self) {
            $self = fields::new($self);
        }

        %{$self} = %params;
        return $self;
    }
}

my $blurple = RGBColor->new(red => 75, blue => 200, green => 0);

print "blurple's blue is $blurple->{blue}\n";
print "blurple's blue is " . $blurple->blue ."\n";  # kaboom, no such method