#!/usr/bin/perl

$fname = $ARGV[0];

if ($fname !~ /\.wav/i){
	$fname .= ".wav";
}

if (!-e $fname){
	print "$fname file not found.\n";
	exit;
}

$len = -s $fname;
if ($len > 22050 * 2 * 60 * 120){
	$freq = 22.05 * $len / (22050 * 2 * 60 * 120);
	$freq = sprintf("%.2f", $freq);
	exec("gogo $fname -b 32 -s $freq -d 22.05");
} else {
	exec("gogo $fname -b 32");
}