#!/usr/local/bin/perl5.6.0 -w
use strict;

my $app = { Projects => 'test.mpp' };

my $r = $app->{Projects}->Item(1);