#!/usr/bin/perl -w use strict; package One; sub one { #do something } package Two; sub two { #do something } package Three; sub three { #do something }