use strict;
use warnings;

use autouse 'Data::Dump::Streamer'=>qw(Dump);
use autouse 'No::Such::Module';

print "foo\n";

my %hash = (    1=>'one',
                2=>'two',
                3=>'three'      );

Dump(%hash);

my $dds = Data::Dump::Streamer->new;

$dds->Dump(%hash)->Out();