#!/usr/bin/perl -w

use strict;
use Net::FTP;

my $host = 'www.ftp.com';
my $user = 'anonymous';
my $pass = 'updatepuller@ftp.com';

my $remote_dir = '/pub/antivirus/NAV/signatures';
my $destination_dir = 'current-sig';