Select Code to Download

#!/usr/bin/perl
use 5.008;
use strict;
...
  $$x{foo} = join " ", map '"'.doit_local($_).'"', 'find', $$x{path}, 
+qw/-type f -exec md5sum {} ;/;
  return 1;
}

[duelafn@jhegaala tmp]$ ./local_threads foo bar
$VAR1 = [
          {
...
          'path' => 'bar',
          'foo' => '"find" "bar" "-type" "f" "-exec" "md5sum" "{}" ";"
+'
        };

[duelafn@jhegaala tmp]$ ./local_threads foo bar
$VAR1 = [
          {
...
          'path' => undef,
          'foo' => '"find" "" "-type" "f" "-exec" "md5sum" "{}" ";"'
        };

[duelafn@jhegaala tmp]$ perl --version

This is perl, v5.8.4 built for i386-linux-thread-multi