#!/usr/bin/perl -dw
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
#NAME
#  Good_day.pl - Send a greeding from perl.
#
#SYNOPSIS
#  Good_day.pl [language]
#REQUIRES
#
#DESCRIPTION
#
#OPTIONS
# None yet, but there may be some soon.
#
#EXAMPLES
# This is a dumb version of the dumb "Hello world!" program.  It sends some
# sort of greeting.  It recognizes a few language codes.
#
#FILES
#
#BUGS
#
#SEE ALSO
#
#AUTHOR
#  John Chambers <jc@trillian.mit.edu>
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
binmode STDIN, ':utf8';
binmode STDOUT, ':utf8';
#use open qw(:std :utf8);

$| = 1;
$exitstat = 0;
($P = $0) =~ s".*/"";
$V = $ENV{"V_$P"} || $ENV{"D_$P"} || 2;	# Verbose level
$lang = 'en';  # Default language is English
for $arg (@ARGV) {
    if ($map)
}

%map = (
   'de' => 'Guten Tag!',
   'en' => 'Good day!',
   'fi' => 'Hyvää päivää!',
   'fr' => 'Bon jour!',
   'hr' => 'Dobar dan!',
   'sr' => 'Добар дан!',
   'zh' => '今天好!',
);

$msg = $map{$lang};
print "$msg\n";

exit $exitstat;