sub WlanConnect {
    croak "Wlan functions are not available" unless $wlan_available;
    my ($handle, $guuid, $profilename, $ssid) = @_;
    
    # possibly overkill, a pDot11Ssid = 0 should suffice
    #my $pDot11Ssid = Win32::API::Struct->new('PDOT11_SSID');
    #$pDot11Ssid->{uSSIDLength} = length $ssid;
    #$pDot11Ssid->{ucSSID}      = $ssid;

    my $SSIDstruct = pack('LZ[32]',length $ssid, $ssid ); #not overflow checked
    my $Wlan_connection_parameters = pack('LPPJLL', 0, $profilename, $SSIDstruct, 0, 3, 0);

    #$Wlan_connection_parameters->{wlanConnectionMode} = 0;
    #$Wlan_connection_parameters->{strProfile}         = $profilename;
    #$Wlan_connection_parameters->{pDot11Ssid}         = $pDot11Ssid;
    #$Wlan_connection_parameters->{pDesiredBssidList}  = 0;
    #$Wlan_connection_parameters->{dot11BssType}       = 3;
    #$Wlan_connection_parameters->{dwFlags}            = 0;

    my $reterr =  $API{ WlanConnect }->Call($handle, $guuid, $Wlan_connection_parameters, 0);
    $reterr == 0 or die "WlanConnect return Error $reterr ";
}