use strict;
use warnings;
use YAML;
use HTML::Tree;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $response =
$ua->get('http://www.raaga.com/channels/hindi/moviedetail.asp?mid=H002927');
my $content1 = $response->content;
my $tree = HTML::Tree->new();
$tree->parse($content1);
my $article = $tree->look_down(_tag=>'form',id=>'raaga');
my $table = $article->look_down(_tag=>'table',class=>'dataTbl',width=>"450");
print Dump $table;