#!/usr/bin/perl
use strict;
use warnings;
use Net::FTP;

my $backup_dir = "C:/partage";
my $remote_backup_dir = "/home/toto";
my $remote_file = "toto.txt";
my $dir = "/home/toto";

my $ftp = Net::FTP->new("192.168.1.17", Passive => 1, Debug => 1);

$ftp->login('toto','pass10');
$ftp->cwd($dir) || die "Unable to change directories";
$ftp->binary();
$ftp->get($remote_file,"toto.txt");
$ftp->quit;

##</code><code>##

Internal Server Error