#!/usr/bin/perl

$pslist=`ps axwww`;
@lines = split('\n',$pslist);
foreach(@lines){
	if ( /Front Row.app/ ) {
		($pid,undef)=split(' ',$_);
		`/bin/kill $pid`;
	}
}
