$FTP->put( $opb ) || die "An error occurred  with put";

print "All is well ... exiting\n";