package Msg;
use strict;
our $msg = {};
sub MSG
{
	my $id = shift;
	return sprintf $msg->{$id}, @_, '', '', '' if $msg->{$id};
	return "[UNKNOWN MSG] *@_*";
};

sub import {
	my $modul = (shift) . '::' . (shift || 'de');
	eval "use $modul";
	eval 'use Msg::de'  if $@;
	*main::MSG = \&MSG;
}
1;