Perl/soap lite script

{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}}
{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\f0\fs20 # remove the +trace => all to remove extensive output HTTP/SOAP traces\par
use SOAP::Lite +trace => all;\par
\par
# instantiate a soap client object\par
my $soap = SOAP::Lite\par
-> uri('https://ws2.sticomputer.com/LabVendorWeb/LabVendor.asmx')\par
-> on_action( sub \{ '"'.join('/', 'http://sticomputer.com/lab', $_[1]).'"' \} )\par
-> proxy('https://ws2.sticomputer.com/LabVendorWeb/LabVendor.asmx');\par
\par
# call the Ping() method\par
print "Calling Ping...\\n";\par
print $soap->Ping()->result;\par
print "done.\\n";\par
\par
# call the HelpAbout() method\par
print "Calling HelpAbout...\\n";\par
my $result = $soap->HelpAbout();\par
print $result->valueof('//HelpAboutResult' )."\\n";\par
print "done.\\n";\par
\par
# call the PutFile() method\par
print "Calling PutFile...\\n";\par
my $method = SOAP::Data->name('PutFile')\par
->attr(\{xmlns => 'http://sticomputer.com/lab'\});\par
\par
my @params = ( SOAP::Data->name(vendorID => 'ZZZ'), \par
SOAP::Data->name(vendorPassword => 'PASSWORD'),\par
SOAP::Data->name(fileData => 'File data goes here') );\par
\par
print $soap->call($method => @params)->result . "\\n";\par
print "done.\\n";\par
\par
<>; # pause\par
\par
\par
\par
}

D:\Perl>NEW.PL
Backslash found where operator expected at D:\Perl\new.pl line 1, near "rtf1\"
Backslash found where operator expected at D:\Perl\new.pl line 1, near "ansi\"
Backslash found where operator expected at D:\Perl\new.pl line 1, near "ansicpg1252\"
Backslash found where operator expected at D:\Perl\new.pl line 1, near "deff0\"
Backslash found where operator expected at D:\Perl\new.pl line 1, near "f0\"
Backslash found where operator expected at D:\Perl\new.pl line 1, near "froman\"
Bareword found where operator expected at D:\Perl\new.pl line 2, near "*\generator"
        (Missing operator before generator?)
Backslash found where operator expected at D:\Perl\new.pl line 2, near "viewkind4\"
Backslash found where operator expected at D:\Perl\new.pl line 2, near "uc1\"
Backslash found where operator expected at D:\Perl\new.pl line 2, near "pard\"
Backslash found where operator expected at D:\Perl\new.pl line 2, near "sb100\"
Backslash found where operator expected at D:\Perl\new.pl line 2, near "sa100\"
Backslash found where operator expected at D:\Perl\new.pl line 2, near "f0\"
syntax error at D:\Perl\new.pl line 1, near "rtf1\"
syntax error at D:\Perl\new.pl line 1, near "}}"
Execution of D:\Perl\new.pl aborted due to compilation errors.
D:\Perl>