#!perl -w
use strict;
use Net::FTP;

my $user="mvpadmin";
my $pass="mypassword";
my $opb="D:\\MVP\\OutPhBk.tmr";
my $mvp="128.1.198.22";

my $FTP=Net::FTP->new($mvp,Timeout=>20);
my $login=$FTP->login($user,$pass);

if(!defined $login){ die"Unable to connect: $!\n"; }else{
    print"Connected to $mvp\n";
}

$FTP->binary;
$FTP->put($opb);
$FTP->close;