[MacPerl] BBedit filter problem

[robinmcf@altern.org]

I'm having a problem using the enclosed script with BBedit 6.02, if i try
to run it without telling BBedit to make MacPerl the frontmost app, the
MacPerl app window doesn't fully open, a progress window is thrown up by
BBedit and nothing else happens; when I try to kill this process using the
command + period combo  it has no effect - the close button on the progress
window is greyed out. I the only way I've managed to wrest control back is
by force quitting (usually just BBedit and MacPerl).

The script itself runs under the MacPerl app as one would expect it to -
anyone else care to try (save it into the scripts folder and try running
it)?

==script follows==

#! perl -w

#=========== declare includes =============

use strict;
use diagnostics-verbose;
use Mac::StandardFile;
#========== declare variables =============

my($file,@FileInfo,$comma);

#============= script body ================
$comma="\'";

$file=StandardGetFile(0,0) or die"there\'s a problem getting the file info:
$^E";
if ($file->sfGood()) {@FileInfo=MacPerl::GetFileInfo($file->sfFile());}
print "creator code= $comma$FileInfo[0]$comma  file type=
$comma$FileInfo[1]$comma\n";
print "path to file = $comma",$file->sfFile(),"$comma\n";

#========= sub routine separator ===========

# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org