...
package MyHandler;

use base qw(XML::SAX::Base);

sub new {
  my $s_Class = shift();
  return (bless ({ }, $s_Class));
}
...