#!/usr/bin/perl -w

use strict;

package test1;

sub runonce
{
print "hello";
}

1;