#! /usr/bin/env perl use strict; print < Web Services Addressing 1.0 - Test Documents

Web Services Addressing 1.0 - Test Documents

EOF my @files = (); print "

$file

"; print "

\n"; print "

";

    my $text = do { local(@ARGV, $/) = $file; <> };

    $text =~ s/&/&/g;
    $text =~ s//>/g;
    $text =~ s/\$/$/g;

    print $text;

    print "

Generated using make-index.pl.
\$Date: 2005/11/01 17:35:28 $

$address EOF exit(0);