lar3ry: that was a quick re-write. Unfortunately, I'm getting an error that I can't seem to resolve:

Semicolon seems to be missing at ./set_tags.sh line 65.
syntax error at ./set_tags.sh line 66, near "EOF

osascript"
Can't find string terminator "EOF" anywhere before EOF at ./set_tags.sh line 66.

Since the script works (I just copied it, saved it, and ran it), here are a couple of suggestions:

1. Make sure you have the "#! /usr/bin/perl" line in line 1 of your file. Otherwise, it will be interpreted as a shell script, not a Perl program.

2. Try typing "perl -cw set_tag.sh" and see if you get the same message. Otherwise, the script isn't being run as a Perl program (and refer to step 1). If you do get the same message, then make sure that the final line in your file contains "EOF" and nothing else (no leading blanks, etc.).

lar3ry

$ perl -cw set_tags.sh
Can't find string terminator "EOF" anywhere before EOF at set_tags.sh line 65.