#! /usr/bin/perl

open (FILE, '/home/julian/tstatcollect');
while (<FILE>) {
chomp;
($temp, $tmode, $fmode, $override,) = split (",");
#my %newval = split (/[:]/, $temp); 
print "Temperature:  $temp\n";
print "Tmode:	$tmode\n";
print "Fmode:	$fmode\n";
print "Override:	$override\n";
print "________\n";
}
close (FILE);
exit;