#!/usr/bin/perl

use strict;

my $title = "Absolutely nothing.";
my $outputfile = 'SETME';
my $host = 'SETME';
my $user = 'SETME';
my $pass = 'SETME';
my $path = 'SETME';
my $ftpcommand = "/usr/bin/ncftpput -u $user -p $pass $host $path $outputfile";

open OUTFILE, ">$outputfile";

print OUTFILE $title;

close OUTFILE;

my $error = system($ftpcommand);
die "ftp command failed" if $error;