#!/usr/bin/perl

use strict;
use warnings;
use MyModules::Test;

my $obj = MyModules::Test->new;

my $farbe_1 = $obj->farbe('rot');
my $farbe_2 = $obj->farbe('blau');

print $farbe_2->farbe;
print $farbe_1->farbe;
$farbe_2->delete;