Select Code to Download

perl -ne'print if /^sub import/.../^sub/' `perldoc -l Math::BigInt`

$ for q in                  \
>    XML::Compile           \
...
>    print "ok";
> '
ok