Select Code to Download

#!/usr/bin/perl  -w
use strict;
...
$p->two(1);

printf "two=%d, three=%d\n",$p->two, $p->three;

#!/usr/bin/perl  -w
use strict;
...

printf "two=%d, three=%d\n",$p->two, $p->three;