Select Code to Download

$ truss /usr/bin/perl -MMIME::Base64 -e1 2>&1 | grep Base64

statx("/usr/opt/perl5/lib/5.8.2/aix-thread-multi/MIME/Base64.pmc", 0x2
+FF21CA0, 128, 010) Err#2  ENOENT
open("/usr/opt/perl5/lib/5.8.2/aix-thread-multi/MIME/Base64.pm", O_RDO
+NLY|O_LARGEFILE) = 4
statx("/usr/opt/perl5/lib/5.8.2/aix-thread-multi/auto/MIME/Base64", 0x
+30008738, 128, 010) = 0
statx("/usr/opt/perl5/lib/5.8.2/aix-thread-multi/auto/MIME/Base64/Base
+64.so", 0x30008738, 128, 010) = 0
statx("/usr/opt/perl5/lib/5.8.2/aix-thread-multi/auto/MIME/Base64/Base
+64.bs", 0x30008738, 128, 010) = 0

$ grep VERSION /usr/opt/perl5/lib/5.8.2/aix-thread-multi/MIME/Base64.p
+m
use vars qw(@ISA @EXPORT $VERSION $OLD_CODE);
...
$ strings /usr/opt/perl5/lib/5.8.2/aix-thread-multi/auto/MIME/Base64/B
+ase64.so | grep ^[0-9]
2.21
2.21