#!/usr/bin/perl -w
use strict;
use MyTwitSend qw(twit);

twit({ 
  message => "This is yet another test message.",
  home    => "/home/mike",
});