#!/usr/bin/perl

print "; Sample Rate 44100\n";

$c = 0;

while (<>) {
	print(($c/44100)."\t".$_);
	$c++;
}