Or even:

use strict;
open (my $info, '>', 'info.txt') or die "info.txt: $!";
print $info qx(systeminfo);
close($info)
[download]

You can read the screen with Win32::Console->ReadChar but you really don't want to.