[tpm] Glob problem

[arocker at vex.net]

>
> use File::Slurp ;
>
A constraint I didn't specify was "use only stuff in the standard
distribution, where possible". My powers don't extend to installing from
CPAN, and the person who can is busy doing other things I need done.

> my ($file_name) = map "$from_dir\\$_", grep /${job_no}XX-.*\.txt/,
> 		read_dir $from_dir ;
>

Frankly, I don't see that as any great improvement. (I put the regex value
in a variable so I could make changes for testing purposes, without
disturbing the selection code.)