#!/usr/bin/perl -wT package test2; sub hello { print "HELLO!\n"; } 1;