Select Code to Download

use strict;
use warnings;
...
my $obj2 = ClassA->new('Other');
print Dumper($obj2);
$obj2->login();

obj1
$VAR1 = bless( {}, 'ClassB' );
...
obj2
$VAR1 = bless( {}, 'ClassA' );
ClassA login