perl 没有关键文件句柄引起的逻辑错误

<pre name="code" class="sql">flow02:/home/tomcat> cat m1.pl 
#!/usr/bin/perl 
use POSIX;
my $dir  = '/home/tomcat';
my $file = '1.log';
$mon_file = "$dir/$file";
my $SDATE = strftime("%Y%m%d%H%M%S",localtime());
$UPLOADPATH = "/data/swap/mbanklog/$IPMACHINE-$SDATE$file";
##########监控关键字，以空格隔开################
@warn_arr = qw/Exception 555/;
foreach $a (@warn_arr) {
    undef @err_info;
    open( C, "<", "$a.tmp" );
    while (<C>) {
        $count = $_;
    }
print "\======================================================================