$ perl -e 'print -M $ARGV[0], "\n"' foo.pl
21.7745138888889