Select Code to Download

#!/usr/bin/perl

...
$obj->do_some_work;

sub code { ... }; # not always

my @files = glob( 'run_me/*' );
while (  my $file = shift @files ) {
...
  system( $cmd ) == 0 or die "something wrong: $?\n";

}