#!/usr/bin/perl

require 'lang.pl';

our $DEBUG = 0;

# my string functions

our sub println {
	print shift()."\n";
}

sub empty {
	return 1 if ($_[0] eq '') || ($_[0] == 0);
        return 0;
}

sub err {
	return lang('Internal error!') if empty $DEBUG;
	return shift;
}


println err lang('Booooo!');

#!/usr/bin/perl

our %lang;
$lang{'Internal  error!'} = 'Internal error!';

our sub lang {
	return $_[0];
}

1;