Tk 	804.027
Tk::Event 	4.015
Tk::Event::IO 	4.008
AutoLoader 	5.60
DynaLoader 	1.05
Tk::Submethods 	4.004
Encode::Unicode 	1.40

##</code><code>##

use strict;
use warnings;

BEGIN {our @usedModules; unshift @INC, sub {push @usedModules, [@_]; return undef;}}

our @usedModules;

...

my $versions = '';
for (@usedModules) {
   my $name = $_->[1];

   $name =~ s/\..*//;
   $name =~ s|[\\/]|::|g;
   
   my $version = eval{eval "\$$name\::VERSION"};
   $versions .= "$name \t$version\n" if defined $version;
}

print $versions;