Select Code to Download

#!/usr/bin/perl

...

package main;  # Back to first package.
BEGIN { print(__PACKAGE__->can('XMLin') ? 1 : 0, "\n"); }  # 1