#!/usr/bin/perl -w
open OSA, "|/usr/bin/osascript" or die "osascript err";
print OSA "tell application \"Terminal\"\n";
if ( $ARGV[1] ) {
print OSA "	do script \"$ARGV[0]\" in window $ARGV[1]\n";
} else {
print OSA "	do script \"$ARGV[0]\"\n";
}
print OSA "end tell\n";
close OSA;
