# Movie Leecher's Database
#   Perl script to create and manage
#   a movie library
#   database saved in xml
#
###############################################################################
use strict;
use Movie;

my @moviearray=undef;

my $tmp=Movie->new();
push(@moviearray,$tmp);

$moviearray[-1]->name("Beispiel Film");
$moviearray[-1]->year("2007");
$moviearray[-1]->filename("/home/daniel/Desktop/beispiel_Film.avi");

print $moviearray[-1]->tostring()."\n\nlength of array:". (my $length=@moviearray);