#!/usr/bin/perl

use lib 'sys:\perl\lib';
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use strict;
use perl2UCS;

use warnings;

my (
@explain,   @allanswers,     @allquestions,  $fullname,
$anslength, @allselections,  $file,          $fname,
$lname,     $time,           $reviewtime,    $idinput,
$id,        $courselocation, $useripaddress, $questionno,
@log,       $clocktime,      $log,           $type,
$value,     @answers,        $buttonname,    %selections,
@options,    $nds
);

# Create NWDir UCX object
$nds = perl2UCS->new("UCX:NWDir");

# Set tree and context to login
$nds->{"FullName"} = "nds:\\\\tree\\container";

$nds->login ("username", "password");

print header;