#!/usr/bin/perl

open(TMPF, ">", "tempfile");
print "User: ";
chomp($user = <STDIN>);
if (system("stty -echo") == 0){
                print "Password: ";
                chomp($pw = <STDIN>);
}else{
                print "stty -echo failed";
                exit 1;
}
system("stty echo");

use WWW::Curl::Easy;
my $curl = WWW::Curl::Easy->new;
$curl->setopt(CURLOPT_URL,'http://ugly_iis/securedoument.txt');
$curl->setopt(CURLOPT_FOLLOWLOCATION,1);
$curl->setopt(CURLOPT_UNRESTRICTED_AUTH,1);
$curl->setopt(CURLOPT_HTTPAUTH,CURLAUTH_NTLM);
$curl->setopt(CURLOPT_USERPWD,$user . ':' . $pw);
$curl->setopt(CURLOPT_FILE,TMPF);
my $retcode = $curl->perform;
close(TMPF);