#----code.pl----
use warnings;
use strict;

use Sample;

my $var1;
my $var2 = tie( $var1, 'Sample', 'black', 'white' );

# The assigment test...
#$var1 = 'green';
#$var2 = ['green','red'];

# The overload test...
#$var1 + ' bishop';
#$var2 + ' bishop';

#print ref($var2),"\n";
print join( "\n", @{$var2->{data}} );

exit 0;
#---------------