#!/usr/bin/perl
use strict;
use warnings;

use First qw(teller);

my $obj = new First('A' => 'red','B'=>'green');
for (1..3 ) {
	# print ref($obj),"\n";
	$obj->teller('Called', 'A' => 'Yellow');
}