Select Code to Download

use Win32::API;

...
my $ph = ' ' x 4;    # Required, but we do not use it

#############################################################

            if ( $linkList->[$x] =~ [pattern of the server that needs 
+authentication] ) {

...
                # ImpersonateLoggedOnUser($ph);

            }