Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -wT
use strict;

my $d = data->new;
print $d->Y, "\n";
  2. or download this
    2002
  3. or download this
    #!/usr/bin/perl -wT
use strict;

my $d = data->new;
print "$d->Y\n";
  4. or download this
    data=HASH(0x254c7228)->Y
  5. or download this
    { package data;
#########################
...
  return $self->{year};
}
}