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