#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
print "Content-type:text/plain\n\n";
require Mac::AppleScript::Glue;
print "started\n";
my $BB = new Mac::AppleScript::Glue::Application('BBEdit')
  || die "$!";
print "success creating Applescript Glue App object\n";
my $results = $BB->check_syntax(file =>
'path:to:file')
  || die "$!";
print "success checking syntax\n";