int cprintit(const char * seq) {
    cout << seq << endl;
    return 10;
}

##</code><code>##

#!/usr/bin/perl
use warnings;
use Inline CPP => Config => BUILD_NOISY => 1,
 TYPEMAPS => 'C:/_32/pscrpt/inline-cpp/stringtype.map',
 CLEAN_AFTER_BUILD => 0;

use Inline CPP;

my $seq = "CTGAGCCGGTAAATC";


my $returned = cprintit($seq);
print $returned."\n";


__END__
__CPP__

using namespace std;


int cprintit(string seq) {
    cout << seq << endl;
    return 10;
}

##</code><code>##

string    T_PV