The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

#!/bin/sh
truss -topen -o /tmp/wal perl -Mblib "$@"
perl -ne 'print "$1\n" if (m#(Tk/.*)\.al.*=\s+\d+#)' /tmp/wal