Help for this page
package Module; ... BEGIN { print 'ending my module'.join(', ',@ARGV)."\n" } 1;
#! /usr/bin/perl -w -T BEGIN: { print 'before using my module'.join(', ',@ARGV)."\n" } use lib qw(.); use Module; BEGIN { print 'after using my module'.join(', ',@ARGV)."\n" }
# ./script.pl three two one before using my module three, two, one beginning my module three, two, one ending my module three, two, one after using my module one
$ ./script.pl beginning my module ending my module after using my module before using my module
www.com | www.net | www.org
No recent polls found