package My::XML;

sub parse_xml {
    my ($filename) = @_;
    ...
}