Using a Simple Object 

use Article;

my $article = Article->new(
    title => 'Introducing Moose',
    body  => 'Blah, blah, blah ...',
);

printf("Title: '%s'\n", $article->title);

$article->body('A modern object system for Perl 5 ...');

printf("Body:  '%s'\n", $article->body);