package Perl;

use Exporter;

use vars qw /@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS/;

@ISA         = qw /Exporter/;
@EXPORT      = qw /index/;
@EXPORT_OK   = qw //;
%EXPORT_TAGS = ();


sub index {
    my $result;
    $result = 2 == @_ ? CORE::index ($_ [0], $_ [1])
                      : CORE::index ($_ [0], $_ [1], $_ [2]);
    $result < 0 ? undef : $result || "00";
}


1;

__END__