#!/usr/bin/perl; 
use SuffixTree;
use warnings;
use strict;

my $filename7 = "C:\\MB\\Cp\\mississippi_out_7.txt";
open(MY7, ">>$filename7") or die "Unable to open $filename7: $!\n";
 
my $str="catgatgttttccctatgggatttttgaa";
        my $tree=create_tree($str);
        print_tree($tree);
        my $position = find_substring($tree, "ttttg");
        printf("\nPosition of (ttttg) in the sequence is %ld.\n\n", $position);
        print MY7 "$tree";   #tried to output to .txt
        print MY7 "${$tree}"; #tried to dereference

exit 0;

##</code><code>##

_p_SUFFIX_TREE=SCALAR(0x224fa4)

##</code><code>##

2273160