#!/usr/bin/perl

use Net::FTP;
use File::Basename;

$username = "user";  # Username of FTP service
$password = "password";# Password of FTP service
$ftp = Net::FTP->new("ftp.drivehq.com") or die "Error connecting to $host: $!";
$ftp->login($username,$password) or die "Login failed: $!";
dirname("/ftp.drivehq.com/Info/");
open (MYFILE, '>>data.txt');
print MYFILE "Bob\n";
close (MYFILE);