package Sample;
use strict;
use warnings;

use GetOpt::Long;

__PACKAGE__->run() unless caller();

sub run {
    my($should_foo);
    die "usage: Sample.pm [--foo|--bar]\n"
        unless(GetOptions('foo' => \$should_foo,
                          'bar' => \$should_bar);
    my $value = $should_foo ? foo() : bar();
    print  $value;
}

sub foo {
    return "Foo to you too\n";
}
sub bar {
    return "The best bar none\n";
}

1;