#!/usr/bin/perl

use strict;

my $file = shift;

unless ($file)
  {
    print "\n";
    print "\tUsage: find /opt/rt3 -exec ./scomp.pl {} \;\n";
    print "\n";
    exit(0);
  }

open(IN,"<$file") || die "Cannot open file: '$file'";
my $all = "";

while (my $line = <IN>) { $all .= $line; }

while ($all =~ /(scomp\([^\)]+\))/)
  {
    my $scomp = $1;

    $all =~ s/scomp\([^\)]+\)//;

    next if ($scomp =~ /,/);

    if (0) { print "$file: $scomp\n"; }
    else
      {
        print "$file\n";
        exit(0);
      }
  }