#!/usr/bin/perl -w 

use Net::FTP; 
$ftp = Net::FTP->new("*****", Debug => 1);
$ftp->login("vpn01",'******'); 

exit 0;