Archive::Zip et Filesys::SmbClient

Bonjour à tous

Je voudrais compresser un fichier et l'envoyer par smbclient, cela semble possible d'après la doc en passant par un filehandle.
J'ai l'erreur :
Can't locate object method "opened" via package "FD" (perhaps you forgot to load "FD"?) at /usr/local/share/perl/5.8.8/Archive/Zip/Archive.pm line 270

(perl v5.8.8)

Merci d'avance pour vos réponses
Gigil

Voila le script :

#!/usr/bin/perl -s

use strict;
use warnings;


use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
use Filesys::SmbClient;


my $remotezip = '>smb://192.168.1.236/partage/data.zip';
my $localfic = 'data.xls';

# Creation du fichier zip
my $zip = Archive::Zip->new();
my $file_member = $zip->addFile( $localfic );

my @args = (
username => 'userid',
password => 'passwd',
debug => 10
);


local *FD;
tie *FD, 'Filesys::SmbClient', $remotezip, '0666', @args;

# un write simple fonctionne
$zip->writeToFileHandle( "FD", 0 );

close(FD);
# J'ai aussi essayé la syntaxe ci dessous (même erreur) :
# my $fd = $smb->open