package Roma2Kana
@ISA = qw()

sub Convert
my ($s, $charcode, $sourcecharcode) = @_;