OOP i Perl

Hi,

jeg har følgende perlscript:
oop.pl
---------------
#!/usr/bin/perl
use strict;
package Person;
sub new
{
  my $class = shift;
  my $self  = {
                  navn  => shift,
                  alder => shift
              };
  bless ($self, $class);
  return $self;
}
package main;
my $user1 = new Person("hans", 3);

# print navn-fra-user1???
-------------------------------

1.) hvordan kan jeg få navnet fra $user1 printet ud på skærmen?
2.) hvordan ved perl, hvornår klasse-definitionen (package) er færdig?

Med venlig hilsen
KernelX