#!/usr/bin/perl -w
use strict;

use WWW::Mechanize;

my $mech = WWW::Mechanize->new;
my $url = 'http://www.vegasinsider.com/nfl/odds/las-vegas/line-movement/bengals-@-ravens.cfm/date/9-07-08/time/1300#J';

save_file($url);

sub save_file {
	my $mech = WWW::Mechanize->new;
	$mech->timeout(60);

	my @game = @_;
	
	foreach(@game) {
		print "$_\n";
		$mech->get($url) or die "Can't get url";
		print $mech->content;
	}
}