there really isnt much else to my code:

#!/usr/bin/perl -w
use strict;
use BerkeleyDB;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();

my %pageHash;

tie %pageHash,  "BerkeleyDB::Btree",
                -Filename => 'pageContents',
                -Flags    => DB_CREATE,

        or die "Cannot open file pageContents: $! $BerkeleyDB::Error\n
+" ;

my %hash;


tie %hash,  "BerkeleyDB::Btree",
                -Filename => 'videoDB',
                -Flags    => DB_CREATE,

        or die "Cannot open file videoDB: $! $BerkeleyDB::Error\n" ;

foreach my $x (keys %hash)
  {
    print "getting $x:";
    my $data = $hash{$x};

    my @parts = split(/\t/, $data);

    my $url = $parts[0];
    $mech->get( "$url" );
    if($mech->success())
      {
        #$pageHash{$x} = $mech->content( format => 'text' );
        print " done\n";
      }
    else
      {
        print " failed\n";
      }
    sleep(15);
  }
[download]