what is wrong here. nothing is printing to the file, list.txt

#use warnings;
#use DBI;
use Win32;
use Win32::OLE qw (in);

open(HLOG,">c:/temp/logf.txt") || die " Open Log_file: $!";
open(HLIST,">C:/temp/list.txt") || die " Open list.txt: $!";

#my $dbh = DBI->connect('dbi:DBI:');





while(<>) {
    chomp($_);
        @a = `ping -n 1 $_`;
        print "for $_:";
        
    if ("@a" =~ /Request timed out/i || "@a" =~ /could not find host/i
+ ){
            print "<<<<not Alive>>>>>\n";

            #TODO
            #spit it to non-alive txt file
            #close file
            print(HLOG);
    }
    else {
        print "::: Alive\n";
        my $Class = "WinMgmts://$_";
        my $Wmi = Win32::OLE->GetObject ($Class);
        if ($Wmi) {
            my %Vars = $Wmi->ExecQuery("SELECT * FROM $Win32_Environme
+nt");
            print $Vars;
            foreach (keys %Vars) {
                print HLIST $Vars{$_} ."\n";
            }
        }
        else {
            print "NO idea";
        }
        #TODO: if alive, check if cadmap exists, if yes, spit the var=
+value pair to a log.txt file.
        
        
    }
}

close (HLOG) || die "Close: $!";
close (HLIST) || die "Close:$!";
[download]