#!/usr/bin/env perl

use strict;
use warnings;
use Foo;
use Bar;
use feature qw(say);

say __PACKAGE__;

my $foo = Foo->new( { debug => 1, nose => q(kumquat) } );
my $bar = Bar->new( { debug => 1, nose => q(cuke) } );

say $foo->nose();
say $bar->nose();

__END__

karls-mac-mini:Mano_Man karl$ ./run.pl
Debug
main
Foo
kumquat
Bar
cuke