用Perl下载RapidShare上的File.

use strict;
use Win32::IEAutomation::RapidShare;

my @rsURL = qw(
#http://rapidshare.com/files/107465258/Oblivion_GoTY_Edition.part77.rar
);

my $ie = Win32::IEAutomation::RapidShare->new(
    visible => 0,
    debug => 1,
    loopServer => 'yes',
    links => \@rsURL,
    stopIfBroken => 'yes'
);

#$ie->add_rslinks( file => 'rsList.txt' );
#my $url = 'http://rapidshare.com/users/5M0U78';
#$ie->add_rslinks( url => $url );

$ie->check_rslinks();
$ie->downloadrs();