#!/usr/bin/perl require 5.006_001; use strict; use warnings; $|++; our $VERSION = 0.01; ## generate a perl script header ## print generic header print <<"EOH"; #!/usr/bin/perl require 5.006_001; use strict; use warnings; \$|++; ## generated by $0: $VERSION EOH ## print out versions of modules for( @ARGV ) { eval "require $_"; no strict 'refs'; my $modVersion = ${$_ . '::VERSION'} || ''; print "use $_ ", $modVersion, ' qw//;', $/; }