########################################################


use Win32::Console;
use Tk;

my $mw = MainWindow->new
(  
    -height=>30,
    -width=>120,
    -background=>black
);

my $lb = $mw->Listbox
(
    -height=>30,
    -width=>120,
    -background=>black,
    -foreground=>yellow
);

$lb->pack;

defined ( my $pid = fork() ) or die "Bummer dude etc\n";
if ($pid) {
   MainLoop;
   exit;
} else {
   my $console = Win32::Console->new();
   $console->Alloc();
   $console->Free(); # Returns under win98, not under win2000
   my $stupid_incrament=0;
   while(1) {
      $lb->insert(end,$stupid_incrament);
      sleep 1;
      $stupid_incrament+=32;
   }
}

########################################################