12:25 >perl 666_SoPW.pl
11780540 good
Use of uninitialized value $moving_code_dir in split at 666_SoPW.pl line 41.
91540670 bad

12:25 >

##</code><code>##

my $moving_code_dir = glob("$UNIT_DIR/$unit/moving_code_*");

##</code><code>##

my ($moving_code_dir) = glob("$UNIT_DIR/$unit/moving_code_*");

##</code><code>##

12:25 >perl 666_SoPW.pl
11780540 good
91540670 good

12:26 >