#!/usr/bin/perl

$artist=$ENV{"QUERY_STRING"};

print "Status: 302 Moved Temporarily\nLocation: http://www.sheetmusicplus.com/a/search.html?id=64465&select=Artist&more=$artist\n\n";