my $d = data->new;
print $d->Y, "\n";   # call $d->Y() in list context 

##</code><code>##

my $d = data->new;
print $d->Y()."\n";   # call $d->Y() in scalar context 

##</code><code>##

my $d = data->new;
print "@{[ $d->Y ]}\n";  # can't remember if this
                         # is in scalar or list context :-)

##</code><code>##

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.