use My;

my $obj = My->new(source=>"xml");
# Do whatever with $obj