#!/usr/local/bin/perl
#
-----------------------------------------------------------------------
  print "Content-type: text/vnd.wap.wml\n\n";
  print &fPrintWapRedirect("http://mi.nuevaurl.com");
  exit;
#
-----------------------------------------------------------------------
sub fPrintWapRedirect {
  ($urlRedirect) = @_;
  my $ret;
  $ret = $ret . qq(\n);
  $ret = $ret . qq(\n);
  $ret = $ret . qq(\n);
  $ret = $ret . qq(\n);
  $ret = $ret . qq(\n);
  $ret = $ret . qq(\n);
  $ret = $ret . qq(\n);
  return $ret;
}
#