#!/usr/bin/perl use test; my $t = test->new; $t->_test2("GZGZ");