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 ";
}

##</code><code>##

sub main {
    $ARGV[0] = 'removed';
    $ARGV[1] = 'removed';
    die "USAGE: $0 PROFILENAME SSID\n" unless($ARGV[1]);
    my $profilename = $ARGV[0];
    my $ssid = $ARGV[1];

    my $wlan_handle = WlanOpenHandle();
    my @interfaces = WlanEnumInterfaces($wlan_handle);
    my $wlan_guuid = $interfaces[0]->{guuid};
    $profilename = encode('UTF-16LE', $profilename."\x00");
    WlanConnect($wlan_handle, $wlan_guuid, $profilename, $ssid);
}