#!/usr/bin/perl

use Test::HTML::Lint tests => 1;

my $file = shift;
open my $fh, '<', $file 
  or die "Cannot open ($file) for reading: $!";
my $html = do { local $/; <$fh> };

html_ok( $html, "$file has valid HTML" );