#!/usr/bin/perl

$id=$ENV{"QUERY_STRING"};

print "Status: 302 Moved Temporarily\nLocation: http://www.sheetmusicplus.com/a/product.html?command=search&db=/store/db/inventory.db&eqskudata=$id&id=64465&searchtitle=sheet%20music\n\n";