#!/opt/local/bin/perl -w
# ^^^ your hashbang may vary

use strict;
use warnings;


`/usr/bin/osascript <<-HereDoc

tell application "Adobe InDesign CS4"
do script "

	// start your javascript code controlling InDesign here
	
	var myObject = app.selection[0]; // grabs selected object in INDD
	alert(myObject); // show object kind
	
	// javascript code ends here

" language javascript
end tell
	
HereDoc`;

#!/opt/local/bin/perl -w

use strict;
use warnings;


`/usr/bin/osascript <<-HereDoc

tell application "Adobe InDesign CS4"
do script "

	// start your javascript code controlling InDesign here
	
	var myObject = app.selection[0]; // grabs selected object in INDD
	alert(myObject); // show object kind
	
	// javascript code ends here

" language javascript
end tell
	
HereDoc`;

#!/opt/local/bin/perl -w

use strict;
use warnings;


`/usr/bin/osascript <<-HereDoc

tell application "Adobe InDesign CS4"
do script "

	// start your javascript code cintrolling InDesign here
	
	var myObject = app.selection[0]; // grabs selected object in INDD
	alert(myObject); // show object kind
	
	// javascript code ends here

" language javascript
end tell
	
HereDoc`;

#!/opt/local/bin/perl -w

use strict;
use warnings;



`/usr/bin/osascript <<-HereDoc


tell application "Adobe InDesign CS4"
do script "

	// start your javascript code cintrolling InDesign here
	
	var myObject = app.selection[0]; // grabs selected object in INDD
	alert(myObject); // show object kind
	
	// javascript code ends here

" language javascript
end tell
	
	
HereDoc`;

#!/opt/local/bin/perl -w

use strict;
use warnings;


`/usr/bin/osascript <<-HereDoc


tell application "Adobe InDesign CS4"
do script "

	var myObject = app.selection[0];
	alert(myObject);

" language javascript
end tell
	
	
HereDoc`;

This example demonstrates a way to control Adobe InDesign from Perl. Tested on MacOS X 10.5.7 and INDD.

Perl to InDesign CS4 example (OS X)

javascript, mac, osx, perl, design

Perl