Select Code to Download

use strict;
use warnings;
...
  sub bye {                    
    return "goodbye, cruel world";
  }

use strict;
use warnings;
...
    -> proxy('http://myserver.manheim.co.uk:51111/webservices/vehicle/
+soaptest.pl')
    -> hi()                                                    
    -> result;

[Tue Nov 30 13:44:40 2010] 15689 Digit.pl: Deep recursion on subroutin
+e "utf8::SWASHNEW" at /usr/share/perl/5.10/utf8_heavy.pl line 251.
[Tue Nov 30 13:44:40 2010] 15689 Digit.pl: Deep recursion on subroutin
+e "CGI::Carp::die" at /usr/share/perl/5.10/utf8_heavy.pl line 198.