sub SendMessage{
    my $self=shift;

    print "Please enter message:\n";
    my $message=<STDIN>;

    print "Please enter destination of message:\n";
    my $to=<STDIN>;
 }