Select Code to Download

use strict;

...
        print $node -> [1] . "\n";
    }
}

$$lastnode  = $newnode;

use strict;

...
        print $node -> [1] . "\n";
    }
}