Facemash algorithm [closed]

Answer 1

`I have designed the code in Perl all from google searching and it works.

Here's It

use strict;
use warnings;
use WWW::Mechanize;
use LWP::Simple;

sub images()
{
my $mech = WWW::Mechanize->new();
my ($site,$count,$file,$dir);
print "\t\t\tDesigned By NUMWARZ GAMING\n\n";
print "Enter the name of the site you want to search for images\t:\n";
$site = ;

    print "Enter the folder where you want to save this\t:\n";

    $dir = ;

    open my $doc, ">" , $dir."sitelist.txt";

    $mech->get( $site);

    my @links = $mech->images();

    $count = 0;

    for my $link ( @links ) 
    {
    $file = $dir.$count.".jpg";

    mirror($link->url,$file);

    print $file," : "$link->url,"\n";

    print $doc $link->url." ".$file."\n";

    $count+=1;
  }
  close $doc;
  exit;
  }

 images();