I'm a bit new to perl and stackoverflow. If I could use a more familiar language I would, unfortunately I cannot due to certain circumstances. Thanks in advance for the help. 

Modules Not Installed: Net::SFTP, WWW::CURL, Net::SSH2, Net::SFTP::Foriegn
Modules Installed: Net::FTP

I am unable to install modules. 

Unable to use Net::FTP Tried Default port and port 22, with a username and password. All I get back from the other box's log when trying to connect is "Did not receive identification string from xx.xx.xx.xx" Also unable to use FTP in command line, times out. 

`$ftp = Net::FTP->new($box,Port=>22, Debug => 0)  

 or die print "Error: Cannot connect";  

$ftp->login($userBox,$passBox)  

 or die print "Error: Cannot login";  

$ftp->cwd()  

 or die print "Error: Cannot change to Root";  

$ftp->cwd($dir)  

 or die print "Error: Cannot change to selected directory";  

if($copyfile ne "" && $dir ne "")  

 {  

 $ftp->put($copyfile, $copyfile);  

 }  

$ftp->quit();`

I can manually use SFTP through the linux command line, not FTP, so I have been trying to use the system command to SFTP into the other box. The other box's logs just say "Connection closed by xx.xx.xx.xx"

`system('sftp '.$userBox.'@'.$box.' ENDOFINPUT'  

.$passBox.'ENDOFINPUT  

cd ../../../  

put '.$filename.' '.$dir.'  

exit  

ENDOFINPUT');`

If anyone knows how to help me with my problem that'd be great :)