!/usr/bin/perl -w
#
use strict;

use MPDatabase::Article;
use MPDatabase::Author;

my $article = MPDatabase::Article->retrieve(articleId => 5);
print $article->author, "\n";

# This program does not produce any output