$sessionOptions->AddRawSettings('ProxyMethod','3');

$sessionOptions->AddRawSettings('ProxyHost', '?.?.?.?');

$sessionOptions->AddRawSettings('ProxyPort', '80');

$sessionOptions->AddRawSettings('ProxyUsername', '<usr>');

$sessionOptions->AddRawSettings('ProxyPassword', '<pw>');

use strict;

use Win32::OLE;

use Win32::OLE::Const;

use Win32::OLE::Variant;

use feature qw(switch); # in order to use given

Win32::OLE->Initialize(Win32::OLE::COINIT_OLEINITIALIZE);



use constant

{

    TRUE  => Variant(VT_BOOL, 1),

    FALSE => Variant(VT_BOOL, 0)

};



sub session_Events()

{

    my ($obj, $event, @args) = @_;

 

    given ($event)

    {

        when ('FileTransferred')

        {

            my ($sender, $e) = @args;

            printf "%s => %s\n", ( $e->{'FileName'}, $e->{'Destination'} );

        }

    }

}

 

my $session = Win32::OLE->new('WinSCP.Session');

my $consts = Win32::OLE::Const->Load($session);

my $sessionOptions = Win32::OLE->new('WinSCP.SessionOptions');

 

$sessionOptions->{'Protocol'} = $consts->{'Protocol_Sftp'};

$sessionOptions->{'HostName'} = 'test.de';

$sessionOptions->{'UserName'} = 'user';

$sessionOptions->{'Password'} = 'passwort';



$session->Open( $sessionOptions);

 

# Upload files

my $transferOptions = Win32::OLE->new('WinSCP.TransferOptions');

$transferOptions->{'TransferMode'} = $consts->{'TransferMode_Binary'};

 

my $transferResult = $session->PutFiles('c:\\temp\\test.*', '/usr', FALSE, $transferOptions);



# Throw on any error

$transferResult->Check();

 

# Print results

my $items = Win32::OLE::Enum->new($transferResult->{'Transfers'});

my $item;

while (defined($item = $items->Next))

{

    print $item->{'FileName'} . "\n";

}