From c7339f230d0fa2cccb2b6f2afc074208377dbdfa Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Thu, 14 Aug 2014 16:26:45 -0400
Subject: [PATCH] Getting started on video download script.

---
 dc-download-videos.plx | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 dc-download-videos.plx

diff --git a/dc-download-videos.plx b/dc-download-videos.plx
new file mode 100755
index 0000000..176412c
--- /dev/null
+++ b/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;