use Net::FTP;
$G_FTP_SITE = &Config_Get("TOTAL_CARE FTP_SITE");
$G_FTP_USERNAME	= &Config_Get("TOTAL_CARE FTP_USERNAME");
$G_FTP_PASSWORD	= &Config_Get("TOTAL_CARE FTP_PASSWORD");

$ftp = Net::FTP->new( "$G_FTP_SITE" );
$ftp->login( "$G_FTP_USERNAME","$G_FTP_PASSWORD" ); 
$ftp->binary ();

$ftp->put( "file.txt" );

$ftp->quit;