Driving a module (.pm)

[Nigel Hamilton]

Hi,

 	I'm trying to work out a good scheme for embedding a little 
driver in a Perl module (.pm).

 	I want a dual-use module format - in module context it behaves 
like a module but when I call directly it runs a little embedded driver 
(perl Foo.pm).

 	I'm considering adding something like this at the bottom of the 
Foo module:

# module driver at base of file
if (shift) {
 	# run the little driver
 	Foo::call_method();
 	Foo::call_another_method(); 
}

1;

 	But it means I need to call it with: perl Foo.pm <something> .
 	There must be a better way .... any ideas?

Nige