Our Sample Company

package Company::FTP;

our %cfg;
$cfg{usc} = {User => 'brannon',      Pass => 'xxx', 
             Host => 'lnc.usc.edu',  Dir  => '/lnc/brannon' };
$cfg{'perlmonk'} = {User => 'princepawn',   Pass => 'xxx',      
                    Host => 'perlmonk.org', Dir  => '/home/princepawn'};

my %net_ftp_cfg = (Debug => 1);

sub handle_for {
	my $site = shift;
	$cfg{$site} or die "no such host in __PACKAGE__";
	Net::FTP::Common->new($cfg{$site}, %net_ftp_cfg);
}

our @nightly_hosts = qw(webhost12 webhost13 webhost14 webhost55);

1;