#!/usr/bin/perl -w
use strict;

use Data::Dumper;
use SPLMget;

my $loginData = {
                gtacUsername => '',
                gtacPassword => '',
                gtacURL => 'http://ftp.ugs.com',
                sgtacURL => 'https://ftp.ugs.com',
                cookie => ''
                };

my @location = [];

my $plm = SPLMget->new;

if ($plm->login($loginData)) {
    $location[0] = 'tecnomatix/';
    my $url = join('/', $loginData->{gtacURL}, $location[0]);
    my $data = $plm->readFilesAndDirs($url);
}