From perldoc Bone::Easy:

SEE ALSO ...the pickup manpage...

pickup is a short Perl script that comes with the module and does exactly what your one-liner does. I discovered it shortly after writing a quick script like yours. =)

--sacked