#!/usr/bin/perl use strict; use warnings; BEGIN { print "Begin code$/Get initialization info from user$/"; } #### print "Or do initialization here before the require$/"; require Program; END { print "End program$/"; } #### package Program; BEGIN: { print "Begin module$/initialize$/" } print "Runtime$/"; END: { print "End module$/" } 1;