Hi5 Photos Downloader

#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Cookies;

print q{
        *******************************************
        *          Hi5 Photos Downloader          *
        *                       Coded By Trizen   *
        *******************************************

    };
&login;
sub login{
    print "\n\t->> Apasa ENTER pentru a sari peste login... <<-\n\n";
    print "=>> Email: ";
    $email = <STDIN>;
    chomp($email);
    if($email eq ""){
        &inserturl;
    }
    print "=>> Pass: ";
    $pass = <STDIN>;
    chomp($pass);
    print "\n\n[*] Logging... \n";
    $lwp = LWP::UserAgent -> new();
    $lwp -> agent("Mozilla/5.0 (X11; U; Linux i686; en-US) AppleWebKit/533.8 (KHTML, like Gecko) Chrome/6.0.398.0 Safari/533.8");
    $cookie_jar = HTTP::Cookies->new();
    $lwp->cookie_jar($cookie_jar);
    push @{$lwp->requests_redirectable }, 'POST';
    $post = $lwp -> post("http://hi5.com/friend/login.do",["email" => $email, "password" => $pass, "remember" => "", "" => "Login"]);
}
&inserturl;
sub inserturl{
print "\n\n=>> Introdu un URL, Email sau un ID de Mess... (doar 1 din 3)\n> ";
$url = <STDIN>;
chomp($url);
if($url eq ""){
    die "\n\n(x_x) Nu ai scris nimic...\n\n";
}
if($url !~ /\//){
    &id;
}else{
    &continue;
}
if($url =~ /\@/){
    &id;
}else{
    &continue;
}
}
sub id{
if($url !~ /\@/){
    $url = $url . "\@yahoo.com";
}
$hi5url = "http://hi5.com/friend/processBrowseSearch.do?searchText=$url";
$lwp = LWP::UserAgent->new();
$lwp -> agent("Mozilla/5.0 (X11; U; Linux i686 (x86_64); de; rv:1.9.1.8) Gecko/20100202 Firefox/3.5.8");
$lwp->cookie_jar($cookie_jar);
$connect = $lwp -> get($hi5url);
if ($connect->content =~ /<a\ href=\"\/friend\/p(.+)--html\">/)
{
$url = "http://hi5.com/friend/p$1id--html"
}
&continue;
}
sub continue{
if($url !~ /http/){
    $url = 'http://' . $url;
}
print "\n\n[*] Checking URL... Please Wait...\n\n";
if($url =~ /PhotoUser.do/){
    &save;
}
$lwp = LWP::UserAgent->new();
$lwp -> agent("Mozilla/5.0 (X11; U; Linux i686; en-US) AppleWebKit/533.8 (KHTML, like Gecko) Chrome/6.0.398.0 Safari/533.8");
$lwp->cookie_jar($cookie_jar);
$connect = $lwp -> get ($url);
if ($connect -> content =~ /ownerId=([0-9]+)/){
    $url = "http://hi5.com/friend/photos/displayUserAlbums.do?userid=$1";
}
$lwp->cookie_jar($cookie_jar);
$connect = $lwp -> get($url);
if ($connect -> content =~ /ownerId=(.+)" style\=/){
    $url = "http://hi5.com/friend/photos/displayUserAlbum.do?ownerId=$1";
}else{
    die "\n\n(x_x) Profil privat sau ceva in neregula!\n\n";
}
$lwp->cookie_jar($cookie_jar);
$connect = $lwp -> get($url);
if ($connect -> content =~ /photoId=([0-9]+)\&albumId=([0-9]+)\&ownerId=([0-9]+)\"\>\<img/){
    $url = "http://hi5.com/friend/photos/displayPhotoUser.do?photoId=$1&albumId=$2&ownerId=$3";
}
&save;
}
sub save{
$lwp = LWP::UserAgent->new();
$lwp -> agent("Mozilla/5.0 (X11; U; Linux i686; en-US) AppleWebKit/533.8 (KHTML, like Gecko) Chrome/6.0.398.0 Safari/533.8");
$lwp->cookie_jar($cookie_jar);
$connect = $lwp -> get($url);
if ($connect -> content =~ /private album/){
    die "\n\n(x_x) Album Privat!\n\n";
}
if ($connect -> content =~ /<img alt="" src="(.+).jpg\" onload=\"document.getElementById\('Photos\-ViewPhoto\-ClickOverlay'\).style.height \= this.height \+ 'px'\;"\/>/){
    $photo = $1 . ".jpg";
    $id = $photo;
    `wget $photo -P ~/Poze-Hi5`;
}
if ($connect -> content =~ /<div><a href="(.+)" name="nl" title="Next Photo">/){
    $url = "http://hi5.com$1";
    $url =~ s/&amp;/&/g;
}
if ($connect -> content =~ /<div><a href="(.+)" name="na" title="Next Album">/){
    $url = "http://hi5.com$1";
    $url =~ s/&amp;/&/g;
}
&save2;
}
sub save2{
$lwp = LWP::UserAgent->new();
$lwp -> agent("Mozilla/5.0 (X11; U; Linux i686; en-US) AppleWebKit/533.8 (KHTML, like Gecko) Chrome/6.0.398.0 Safari/533.8");
$lwp->cookie_jar($cookie_jar);
$connect = $lwp -> get($url);
if ($connect -> content =~ /private album/){
    die "\n\n(x_x) Album Privat!\n\n";
}
if ($connect -> content =~ /<img alt="" src="(.+).jpg\" onload=\"document.getElementById\('Photos\-ViewPhoto\-ClickOverlay'\).style.height \= this.height \+ 'px'\;"\/>/){
    $photo = $1 . ".jpg";
    $done2 = $photo;
    if($done2 eq $id){
        die "\n\n\[*] Done! Check out \"~/Poze-Hi5\"\n\n";
    }
    `wget $photo -P ~/Poze-Hi5`;
}
if ($connect -> content =~ /<div><a href="(.+)" name="nl" title="Next Photo">/){
    $url = "http://hi5.com$1";
    $url =~ s/&amp;/&/g;
}
if ($connect -> content =~ /<div><a href="(.+)" name="na" title="Next Album">/){
    $url = "http://hi5.com$1";
    $url =~ s/&amp;/&/g;
}
&save2;
}