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