#!/usr/bin/perl

use Some::Module;
my $obj = Some::Module->new(
   %options, code => \&code 
);
$obj->do_some_work;

sub code { ... }; # not always

##</code><code>##

my @files = glob( 'run_me/*' );
while (  my $file = shift @files ) {

  my $cmd = "perl -Ilib $file >> log";
  print STDERR "$cmd\n";
  system( $cmd ) == 0 or die "something wrong: $?\n";

}