Select Code to Download

package DualVar;

...
sub new { bless [ @_[1,2] ], $_[0] }

1;

use DualVar;

my $x = DualVar->new("japhy", 19);
printf "I'm %s, and I'm %d years old.\n", $x, $x;