use Games::Roguelike::Console;
use Getopt::Long;
our $opt_console = $^O =~ /win32/i ? 'win32' : 'curses';
GetOptions("console=s");
my $con;
if ($opt_console eq 'curses') {
require Games::Roguelike::Console::Curses;
$con = Games::Roguelike::Console::Curses->new();
} elsif ($opt_console eq 'win32') {
require Games::Roguelike::Console::Win32;
$con = Games::Roguelike::Console::Win32->new();
} elsif ($opt_console eq 'ansi') {
require Games::Roguelike::Console::ANSI;
$con = Games::Roguelike::Console::ANSI->new();
}
$con->tagstr("This is normal<red>This is red");
$con->refresh();
$con->getch();
undef $con;