#!/usr/bin/perl package Lamp; use Moose; has 'state' => ( is => 'rw', default => 'off' ); sub showState { my $self = shift; print $self->state; print "\n"; } package main; my $lamp = Lamp->new(); $lamp->showState();