Perlでメッセージボックス

現在、Perl+HTMLでWebページを作成しているのですが、submitボタンを押したらメッセージBOXがでて次のページへいけるようにさせたいと思っております。
メッセージBOXは出せるようになりましたが、「OK」「キャンセル」ボタンの「キャンセル」を押しても次のページに移動してしまいます。

submitボタンの文は以下のように書いております。
print qq(<input onClick="confirm('検索を行います。よろしいですか？')" type="submit" value="検索開始">\n);

if(confirm("文字列")) { 処理 }
を使えば、制御が可能であるとネットにかいてあったのですが、うまくできません。
なにか良い方法があれば回答をお願い致します。

ちなみに、業務の都合上、Javaスクリプトは使用禁止となっております。