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

my $obj = Cool->new( qw(foo bar baz) );
$obj->bar = "A better way of doing this";
print $obj->bar, "\n";