Select Code to Download

 
use strict;
use warnings;
...
    my ($class,$obj) =@_;
    bless $obj, $class;
}

<1>
<0>
<2>