Getting started on video download script.

dc-download-videos.plx

@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use WWW::Mechanize;
+use HTTP::Cookies;
+
+my $mech = WWW::Mechanize->new(
+     autocheck => 1,
+     cookie_jar => HTTP::Cookies->new( file => "$ENV{HOME}/Crypt/Poker/dc-cookies.txt"));
+
+$mech->get("http://www.deucescracked.com/dashboard");
+print $mech->content;