#!/usr/bin/env perl
use warnings;
use strict;
use Encode::Locale qw();
use Term::Choose::Constants qw( :screen );
use App::DBBrowser;

use if $^O eq 'MSWin32', 'Win32::Console::ANSI';
print "\e(U" if $^O eq 'MSWin32';

binmode STDIN,  ':encoding(console_in)';
binmode STDOUT, ':encoding(console_out)';
binmode STDERR, ':encoding(console_out)';

END { print SHOW_CURSOR }

print HIDE_CURSOR;

my $db_browser = App::DBBrowser->new();
$db_browser->run();