#!/usr/bin/perl -w

use Net::FTP;

my $hostname;
my $username;
my $password;
my $boink;
my $directory;
my $filename;
my $ftp;
my $sleeptime;

$boink = 0;

while ($boink == 0) {
    $ftp = Net::FTP->new($hostname) or die "can't connect: $@\n";
    $ftp->login($username,$password) or die "can't login: $@\n";
    $ftp->cwd($directory) or die "can't cwd to $directory\n";
    $ftp->type(binary) or die "cannot change type to binary\n";
    $ftp->put($filename) or die "cannot put $filename\n";
    $ftp->close;
    sleep($sleeptime);
}