use strict; use warnings; package Stuff; sub xmlheader { print "\n"; } sub xmldtd { print " \n"; } package main; print "content-type:text/html; charset=utf-8\n\n"; Stuff::xmlheader (); Stuff::xmldtd ();