my $unc=`net use | grep "K:" | grep -Po "\\\\.+"`;