#! perl -plw
use strict;
use Win32::Console;
BEGIN{
	my $c=new Win32::Console( STD_ERROR_HANDLE );
	$c->Free();
	$c->Alloc();
}

END{
	print 'Paused'; 1 while sleep 1;
}