Help for this page
$q->textfield (-default=>A,-name=>"title_$cdnum"),$q->textfield (-defa +ult=>""-name=>"artist_$cdnum")