#!/usr/bin/perl
use strict; use warnings; use feature 'say';
use MyClass;

my $obj = MyClass->new;
say $obj->foo;
say $obj->bar;

__END__