#!/usr/bin/perl # keymap "x \\" GOTO file:/$LIB/backslash_to_slash.cgi $_ = $ENV{W3M_CURRENT_LINK} || exit; s@\\@/@g; print <<EOF; Location: $_ EOF