use strict;
use warnings;

sub do_this { return 2 + 2; }
sub do_that { return 3 + 3; }

sub main {
  my $i = do_this();
  my $j = do_that();
}

main() unless caller();  # make it testable

1;

__END__