#!/usr/bin/env perl

use strict;
use warnings;
use feature qw(say);
use Data::Dump;
use Karl;

my $monks   = qq(http://www.perlmonks.org);
my $list = [qw(cuke cuke)];
my $nose = Karl->new( list => $list, monks => $monks );

dd $nose;

my $uniq = $nose->my_uniq;
say $uniq;

my @uniq = $nose->my_uniq;
say for @uniq;

say $nose->host;

__END__