This is a test

#!/usr/bin/perl -w
use strict;
use HTTP::Cookies;
use SOAP::Lite;
 
my $host        = 'use.perl.org';
my $uri         = "http://$host/Journal";
my $proxy       = "http://$host/journal.pl";
my $cookie_file = "$ENV{HOME}Netscape Users:Chris Nandor:MagicCookie";
 
# first line is subject
chomp(my $subject = <>);
my $text = join '', <>;
(my $newtext = $text) =~ s/\n/\012/g;  # Local to Unix newlines
 
my $cookie_jar  = HTTP::Cookies::Netscape->new;
$cookie_jar->load($ cookie_file);
 
my $journal = SOAP::Lite->uri($uri)
                        ->proxy($proxy, cookie_jar => $cookie_jar);
 
$journal->add_entry($subject, $newtext);
 
# print text back to original window
print $subject, "\n", $text;
 
__END__