note
dragonchild
If you execute this script in the same directory as it and you don't pass any parameters, your Usage() doesn't construct $prog correctly.
<code>
my ($prog) = $0 =~ /\/([^\/]+)$/;
---- Change to:
use File::Basename;
...
my ($prog) = basename($0);
</code>
<div class="pmsig"><div class="pmsig-85580">
<p>------<br><i>We are the carpenters and bricklayers of the Information Age.</i><p><i>The idea is a little like C++ templates, except not quite so brain-meltingly complicated.</i> -- [TheDamian], Exegesis 6<p>Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.
</div></div>
159262
183829