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