Ms-Dos - FTP - Linux

Hola:
Necesito que un programa que transmite por ftp un archivo de texto, me guarde un log que almacene que pudo realizar la conexión al servidor destino. Ya sea leyendo el archivo enviado en el servidor destino, o que genere un archivo de salida que me muestre lo que hizo el programa.

#!c:/perl/bin/perl

local($fftp)="ftppen.txt";

local($filsend);
$filsend=("archivoatransmitir.txt");
open(ftp,">$fftp");

#---------------------------------Generar el archivo de ftp--
local($fftp)="ftppen.txt";
print ftp "open IP\n";
print ftp "user xxxxx pass\n";
print ftp "cd /txt\n";
print ftp "send $filsend\n";
print ftp "quit\n";
close (ftp);
#------------------------------------------------------------


system("ftp -n < $fftp ");

exit;

Gracias de antemano a la ayuda que puedan proporcionarme.