#!/usr/bin/perl --

BEGIN {
    $INC{'ZenTaraEI.pm'} = __FILE__;

package ZenTaraEI;
use strict; use warnings;
require Exporter;
our @ISA = qw/ Exporter /;
our @EXPORT = qw/ hello goodbye /;  # exported by default
sub new {
    my $class = shift;
    return bless { @_ }, $class;
}
sub hello { print "\nHello\n"; }
sub goodbye {
    my( $self ) = @_;
    my $name = eval { $self->{name} }  || '';
    print "\nGoodbye $name\n"
}
1; ## return true


}##########

use strict; use warnings;
use ZenTaraEI;

hello();
ZenTaraEI->new( name => "Bob" )->goodbye();
exit( 0 );
exit( 0 );