#!/usr/bin/perl -w

use strict;

my @plugreport = grep { /GUID 0x0080884f4f....../ } `plugreport 2>&-`;

my @cameras;

for ( @plugreport ) {
  my ($firewire_nodeid) = /^Node (\d+) GUID/;
  push @cameras, $firewire_nodeid;
}

for my $id ( @cameras ) {
  system("plugctl -n $id oPCR[0].bcast_connection=1");
  system("plugctl -n $id oPCR[0].channel=$id");
}

for ( @cameras ) {
    print "$_\n";
}