#!/usr/bin/perl -w
use strict;
use Socket;
use Net::FTP;

$site = 'ftp.wolfger.com';
$address = inet_ntoa(inet_aton($site)));
$ftp = Net::FTP->new
(
	"ftp.wolfger.com",
	Timeout => 60
) or die "Connection failed to $address\n";

$user = "<insert username here>";
$pass = "<insert password here>";
$ftp->login($user, $pass)
	or die "Login failed for $user.\n";

$ftp->cwd('./main_html');
$ftp->type('binary');

$local  = "/home/wolfger/Shared/Documents/wolfger/howllog.html";
$remote = "howllog.html";

$ftp->put($local, $remote)
	 or die "Failed to put file $remote.\n";

$ftp->quit()
	or die "Could not quit connection to $address\n";