CCcam free server perl script

[greepo]

Un mic script in perl pe care l-am facut care salveaza serverele CCcam de pe o pagina intr-un fisier text.

use WWW::Mechanize;

my $mechanize = WWW::Mechanize->new(autocheck => 1);

$url = "http://www.softcam.tv/index_menu.php?page=server";

$mechanize->get($url);


my $page = $mechanize->content;

while ($page =~  /<br>C:([\s\S]+?)<br>/g ) {
open FILE, ">>servere.txt" or die $!; print FILE "$1\n";  
    print  "$1\n";
  }