リロード操作をすると二重書込みされる対策の訂正。
http://www.rescue.ne.jp/CGI-BBS/soho/cargo/20030330182015.shtml にて回答しましたが、不具合があるので訂正します。

> sub mado
> 以下を追加
> <meta http-equiv="Refresh" content="0">
これ refresh されっぱなしになるのでだめですねぇ。
以下に変更して下さい
sub input_to cart
&mado;
を
print "Location: $nossl" . '?' . "\n\n";
に

sub delete {
    if (!-e $tmp) { &error("設定エラー","作業用ファイルを展開するフォルダが見つかりません。"); }
    if ($COOKIE{'CART'} eq '') { &mado; }
    if (open(ORDER,"$tmp$COOKIE{'CART'}\.bk6")) {
        while (<ORDER>) {
            s/\n//g;
            if (/^#|^$/) { next; }
            if (/^$delete_gcode/) { $i++; }
            elsif (/^*$delete_gcode/) { $d++; }
        }
        close(ORDER);
    }
    if ($i > $d) {
        if (!open(FILE,">> $tmp$COOKIE{'CART'}\.bk6")) {
            &error("!設定エラー","作業用ファイルを展開するフォルダのパーミッションが正しく設定されていません.");
        }
        print FILE "\*$delete_gcode\n";
        close(FILE);
    }
    &mado;
}