#!/usr/bin/perl

caller() or run();

sub run {
   print do_stuff_1();
   print do_stuff_2();
}

sub do_stuff_1 { 1 }
sub do_stuff_2 { 2 }

1;

##</code><code>##

use Test::Simple 'no_plan';
require 'bin/script';
ok( do_stuff_1(), 'do_stuff_1()' );