#!/usr/bin/perl -w
use strict;

use Purified::Confusion;

my $one= Purified::Confusion->new('a');
print $one->get(), $/;

# A quite common idiom in Perl code
# which produces no errors nor warnings:
my $two= $one->new('b');

# ...but that produces not at all what is desired,
# if the module author heeded the FUD; as we see here:
print $two->get(), $/;