http://pub.woremacx.com/www-veoh-download.pl#!/usr/bin/perl package WWW::Veoh::Download; use strict; use warnings; use LWP::UserAgent; use URI; use XML::Simple; sub new { my $self = bless {}, shift; $self->{ua} = LWP::UserAgent->new; $self; } sub download { my $self = shift; my $id = shift; $self->{id} = $id; $self->{info} = $self->getVeohParams($id); $self->download_from_veoh; } sub getVeohParams { my $self = shift; my $veohID = shift; pri
