use UCSExt;

##</code><code>##

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use strict;
use UCSExt;

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             $Ret
);

##</code><code>##

line 18,19:
     @options    $nds             $Ret
     );

line 24:
    $nds = UCSExt->new("UCX:NWDir");

line 27:
    $nds->{"FullName"} = "nds:\\\\nsmtree\\nsm";
 
line 29:
    $nds->login ("jane", "password");