Bonus/backslash_to_slash.cgi

   1 #!/usr/bin/perl
   2 # keymap "x \\" GOTO file:/$LIB/backslash_to_slash.cgi
   3
   4 $_ = $ENV{W3M_CURRENT_LINK} || exit;
   5 s@\\@/@g;
   6 print <<EOF;
   7 Location: $_
   8
   9 EOF