veoh_mp4_download.pl

use strict;
use warnings;
use LWP::UserAgent;

my $video_id = shift || 'v6558955QCb57mWk';             # default is true tears OP                                           
my $api_key  = '';
my $ua       = LWP::UserAgent->new();

my $res = $ua->get( "http://www.veoh.com/rest/v2/execute.xml?method=veoh.video.findByPermalink&apiKey=$api_key&permalink=$vi\
deo_id" );
die "can't get api content!" unless $res->is_success;
$res->content =~ /ipodUrl="([^\"]+)"/;
my $ipod_url ||= $1 or die "can't find ipod url!";
print $ipod_url . "\n";