$file = $ARGV[1];
$first = 1;
while ($_ = <>) {

  if (m/@@ -([0-9]*)/){
    if ($first == 0){
      print ", ";
    }
    $first = 0;
    print `perl fname.pl $file $1`;
  }

}