#!/usr/bin/env perl use test; test::test(1,2,3,4); # test::Init(); test::test(1,2,3,4);