#!/usr/bin/perl
# $Id: release,v 1.2 2002/08/18 09:09:29 comdog Exp $
use strict;

use Net::FTP;

my @Sites = qw(pause.perl.org upload.sourceforge.net);

foreach my $site ( @Sites )
	{
	my $ftp = Net::FTP->new( $site, Debug => $ENV{DEBUG} );

	$ftp->login( "anonymous",'bdfoy@cpan.org' );
	$ftp->cwd( "/incoming" );
	$ftp->put( $ARGV[0] );
	$ftp->quit;
	}