#! /usr/bin/perl -w

use strict;

open (MYFILE, "< $ARGV[0]");
open (OUTFILE, "> codonusage.txt");

while (<MYFILE>) {
    my @f = split(/\s+/, $_);
    next if /^\s*$/o;
    print OUTFILE "$f[1] ".($f[3]/1000),"\n";
};

close(MYFILE);
close(OUTFILE);
