print "Hello, World"; #### use Config::Parser; # "clever" in house module to parse config files; relies heavily on closures, XS, and mutual recursion; contains own lexer and parser use Language::Gylph::Unicode; # "clever" in house module for unicode; written in as a clever polyglot of FORTRAN, C, and Assembler, "just in case" only one of the languages is available at any given time my $parser; $parser = Config::Parser->new( $ARGV[0] || $ENV{CONFIG} || get_default_config($0) ); $parser->set_output_device(\*STDOUT); $parser->set_Encoding( Language::Glyph::Unicode->get_encoding( $ENV{LANGUAGE} ) ); $parser->set_display_string( $parser->get_data(TYPE=>GREETING)); $parser->output_display_string();