use strict;
use warnings;

my $file = $ARGV[0];
open (my $fh, "<", "$file") or die "Could not open < $file";

use Inline 'CPP' => Config =>
  BUILD_NOISY => 1,
  TYPEMAPS => './my.typemap';

use Inline 'CPP' => << 'END';
using namespace std;
int countGC(string gcString) {
int res(0);
for (int i = 0; i < gcString.length(); i++) {
 if (gcString[i] == 'C' || gcString[i] == 'G') { res++; }
}
return res;
}

END

while (my $line = <$fh>){
  printf ("%d\n", countGC($line));
}
close $fh;