#!/usr/bin/perl -w -I../lib
######################################################################
# send_all
# Sccsid:  %Z%  %M%  %I%  Delta: %G%
# $Id: send_all,v 1.3 2006/01/18 01:59:34 grant Exp $
######################################################################
# Copyright (c) 2006 Grant Grueninger, Commercial Systems Corp.
#
# Description:

use WWW::Myspace;
use WWW::Myspace::Message;

# usage: send_all -s subject -m message friend_id [friend_id ...]
$message = new WWW::Myspace::Message( new WWW::Myspace, @ARGV );

$message->noisy(1);
$message->send_all;