Select Code to Download

readline() on closed filehandle T at blah. See comment below for line.
+    
print() on closed filehandle T at blah. See comment below for line.

sub t_write {
    my($file, $aOrder) = @_;
...
    #make a comment that this was done
    print "Trace file: $file\n";
}