#! 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();