streamingwebsites - kinodownloads - already - SOURCE CODE

#!/usr/bin/perl

system("cls");
#sleep 25000;

###########################
### Autor: Sebastian Enger / B.Sc. 
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b  - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################

use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);
use HTTP::Cookies;
use DBI;
use File::Find;	# perl -MCPAN -e 'force install "File::Find"'
use File::Copy;	# perl -MCPAN -e 'force install "File::Copy"'
use File::Path;	# perl -MCPAN -e 'force install "File::Path"'
use File::Basename;
# use File::Remove qw(remove); # perl -MCPAN -e 'force install "WordPress::XMLRPC"' 
use WordPress::API::Post; # perl -MCPAN -e 'force install "WordPress::API::Post"'
use Data::Random qw(:all); # perl -MCPAN -e 'force install "Data::Random"' # perl -MCPAN -e 'force install "Date::Calc"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use Data::Dumper; 
use POSIX qw(strftime);
use HTML::Entities;
use HTML::LinkExtractor;
use Regexp::Common qw(time);
use LWP::Simple;

my %AlreadyScanned;
my $AlreadyScanned;
my $crawling;
my $key;
my $Hash;
my %Hash = ();

my $D;
my %D = ();

#############################
# Posting Data
 my $username 	= "cereal";
 my $password 	= "rouTer99"; 
 #my $proxy 		= "http://www.buzzerstar.com/devel/xmlrpc.php";

... [truncated, 777 more lines] ...