Well, first of all let me be pedantic:

> my($what) = shift(@ARGV);
> my($whatLower) = $what;
> $whatLower =~ tr/[A-Z]/[a-z]/;

$whatLower = lc($what);

> if ($what eq undef)  {

well, if $what is undef you already have 2 
warnings before you detect it. On with tr/// (or lc()) and the next ri
+ght here.
rather write:

my $what = shift @ARGV;
unless(  defined $what 
     and exists $dispatch{lc($what)}
){ Help(); exit defined($what) ? 0 : 1 }

$dispatch{$whatLower}->(@ARGV);
exit 0;
[download]

Line 61 may be that one:

$AlarmCount++ if(($supply->[4] - $supply->[3])
                  <= <$AlarmFilter>)
[download]

What should the user enter as second argument that you can do a readline() operation on it (since $AlarmFilter is $_[0] and $_[0] is $ARGV[1])? It must be a file handle therefor and it surely isn't. Maybe you just want to skip the <> Operator?!

btw.: it's exactly the same with $Quenchfilter a few lines later...

update, [ and ] ...

--
http://fruiture.de