seek COM, 0, SEEK_SET   or die "Cannot rewind $!";                       
truncate COM, 0         or die "Cannot truncate $!":