#! /usr/bin/perl -w

use strict;

print "6to4 pct\tdate\n";
while(<>) {
	/^#/ and next;
	my @fields = split(/\t/, $_);
	
	printf "%f%%\t%d\n", (100 / $fields[4] * $fields[5]), $fields[0];
}