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;