Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
    print Data::Dumper->Dump([$a]),"\n";
    return 0;
}

#!/usr/bin/perl
use strict;
use warnings;
...
    # print ref($obj),"\n";
    $obj->teller('Called', 'A' => 'Yellow');
}