#!/usr/bin/perl

use SOME::Module;

my $blah = new SOME::Module;
$blah->start;
use 'guts.pl';
$blah->end;

exit;

##</code><code>##

#!/usr/bin/perl

my %data = ( lots of data );
foreach (keys %data) {
  $main::blah->calc($_);
}

exit;