##
#! perl
use strict;
use warnings;
package Widget;
sub new
{
my ($class, $name) = @_;
my %self = (name => $name);
bless \%self, $class;
}
sub say_hello
{
my ($self) = @_;
print "$self->{name} says \"Hello!\"\n";
}
1;
##
##
#! perl
use strict;
use warnings;
use autodie;
open(my $fh, '<', 'Widget.pm');
my $f = do { local $/; <$fh> };
close $fh;
eval $f;
warn $@ if $@;
my $widget = Widget->new('Gromit');
$widget->say_hello();
##
##
Gromit says "Hello!"