open (FILEPTR,$file) || die "Cant open file";
@trace <FILEPTR>;