use IPC::Run3 'run3';
run3 ['powershell', '-Command', 'Invoke-WebRequest', '-Uri', $uri,
	'-OutFile', $filename, '-UseDefaultCredentials'];
$? and die "run3 failed with \$?=$?";

##</code><code>##

use File::Temp qw/tempfile/;
use IPC::Run3 'run3';
sub invoke_webrequest {
	my $uri = shift;
	my ($tfh,$tfn) = tempfile(UNLINK=>1);
	close $tfh;
	run3 ['powershell', '-Command', 'Invoke-WebRequest', '-Uri', $uri,
		'-OutFile', $tfn, '-UseDefaultCredentials'];
	$? and die "run3 failed with \$?=$?";
	open my $fh, '<', $tfn or die "$tfn: $!";
	my $data = do { local $/; <$fh> };
	close $fh;
	unlink $tfn;
	return $data;
}