Skip to content

Instantly share code, notes, and snippets.

@predakanga

predakanga/tvrage_next.pl

Created April 24, 2015 12:21
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save predakanga/56866910121e22c73f34 to your computer and use it in GitHub Desktop.
Save predakanga/56866910121e22c73f34 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
tvrage_next.pl
sub get {
my $url = shift;
my $ua = LWP::UserAgent->new;
$ua->agent("Bot");
my $request = HTTP::Request->new(GET => $url);
my $result = $ua->request($request);
#print $result->content;
return $result->content;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment