sub sys {
my $self = shift;
my $app  = shift;
more();
TRACE "sys > $app @_";
my($pid, $sock) = Win32::Socketpair::winopen2_5($app, @_) or LOGDIE "failed to open $app: @_";
shutdown $sock, 1;
my ($sel, $buf);
$sel = new IO::Select($sock);
SYSLOOP: while(my @ready = $sel->can_read) {
	foreach my $fh (@ready) {
		my $line = <$fh>;
		if(not defined $line) {
			$sel->remove($fh);
			next;
		}
		$buf .= $line;
	}
}
waitpid($pid, 0);
close $sock;
less();
return $buf;
}