Curses problem in windows

i am using eclips Version: 3.4.1 when i use bellow code then geting some error.

use strict;
use Curses;

my $timeout = 10;
if (@ARGV && $ARGV[0] =~ /^-(\d+\.?\d*)$/) {
    $timeout = $1;
    shift;
}

die "usage: $0 [ -timeout ] cmd args\n" unless @ARGV;

initscr();       # start screen
noecho();        
cbreak();
nodelay(1);        # so getch() is non-blocking

$SIG{INT} = sub { done("Ouch!") };
sub done { endwin(); print "@_\n"; exit; }

while (1) {
    while ((my $key = getch()) ne ERR) {       # maybe multiple keys
    done("See ya") if $key eq 'q'
    }
    my @data = `(@ARGV) 2>&1`;        # gather output+errors
    for (my $i = 0; $i < $LINES; $i++) {
    addstr($i, 0, $data[$i] || ' ' x $COLS);
    }

    standout();
    addstr($LINES-1, $COLS - 24, scalar localtime);
    standend();

    move(0,0);
    refresh();                # flush new output to display

    my ($in, $out) = ('', '');
    vec($in,fileno(STDIN),1) = 1;        # look for key on stdin
    select($out = $in,undef,undef,$timeout);# wait up to this long
}

error--
perl.exe has encountered a problem and needs to close.  We are sorry for the inconvenience.

but when i m trying this code with command line then its ok.

regards
Mukesh kumar