#!/usr/bin/perl
use strict;
use Mac::AppleScript::Glue;
use LWP::Simple;
print "Enter URL:\n -> ";
my $URL = <STDIN> || die "$!";

getstore( $URL, "/path/to/tempfile.html" ) || die;

my $BB = new Mac::AppleScript::Glue::Application('BBEdit')
  || die "$!";

my $results =
  $BB->check_syntax(
    file => "path:to:tempfile.html" )
  || die "$!";

# If it worked, $results is now 
# an AoH-type data structure

foreach my $item ( @{$results} ) {
    print 'Line '
      . $item->{'result_line'} . ': '
      . $item->{'message'} . "\n";
}