#!/perl/bin

use Net::FTP;

my $File = Net::FTP->new("ftp.26.190.158.98")
		or die "Couldn't connect: $@\n";
		
my $login = "name";
my $passwd = "pwd";

		
#$File->login($login,$passwd);
	
#$File->cwd("folder");


#$File->put("DEC0610.001");

#$File->close();