#!/usr/bin/perl
#----------------------------
#FTP's single file to servage
#By Benjamin Ruston
#benjamin@digitalwombat.com
#Ponder@DALnet
#28th November 2006
#------
#Usage: ./ftpsend ~/dog.jpg /www/public
#./ftpsend filename remotelocation
#------
use Net::FTP;
$file = $ARGV[0];
$rloc = $ARGV[1];
$host = "ftp.host.here";
$ftp = Net::FTP->new($host, Debug => 0);
#Login and password need to be set here
$ftp->login("username",'password');
$ftp->cwd($rloc);
$ftp->put($file);
$ftp->quit;