#!/usr/bin/perl


use strict;
use warnings;

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

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>){
	my @string = split /\t/, $line;
  my $seq = $string[2];
  printf ("%d\n", countGC($seq));
}
close $fh;

##</code><code>##

 Undefined subroutine &main::countGC called at GC_gfa_filter.pl line 22, <$fh> line 1.