#!/usr/bin/perl -w -I../lib

use WWW::Myspace;

my $myspace = new WWW::Myspace;

my $result = $myspace->post_blog( @ARGV );

die $myspace->error."\n" if $myspace->error;

print "Blog posted.\n";