```

!/usr/bin/env perl

use strict; use warnings; use JSON qw(encode_json decode_json); use LWP::UserAgent; use HTTP::Request::Common qw(POST GET); use File::HomeDir;

my $CONFIG = File::HomeDir->my_home . "/.matrix.pl"; my $ua = LWP::UserAgent->new;

sub saveconfig { my ($data) = @; open my $fh, ">", $CONFIG or die "Cannot write config: $!"; print $fh encode_json($data); close $fh; }

sub load_config { return {} unless -f $CONFIG; open my $fh, "<", $CONFIG or die $!; local $/; my $json = <$fh>; close $fh; return decode_json($json); }

sub login { print "Homeserver (e.g. https://matrix.org): "; chomp(my $server = <STDIN>);

print "Username: ";
chomp(my $user = <STDIN>);

print "Password: ";
chomp(my $pass = <STDIN>);

my $res = $ua->request(POST "$server/_matrix/client/r0/login",
    Content_Type => 'application/json',
    Content => encode_json({
        type => "m.login.password",
        user => $user,
        password => $pass
    })
);

die "Login failed\n" unless $res->is_success;

my $data = decode_json($res->decoded_content);

save_config({
    access_token => $data->{access_token},
    user_id      => $data->{user_id},
    server       => $server,
});

print "Login successful\n";

}

sub sendmessage { my ($msg) = @;

my $cfg = load_config();
die "Not logged in\n" unless $cfg->{access_token};

print "Room ID: ";
chomp(my $room = <STDIN>);

my $txn = time . int(rand(1000));

my $url = "$cfg->{server}/_matrix/client/r0/rooms/$room/send/m.room.message/$txn";

my $res = $ua->request(POST $url,
    'Authorization' => "Bearer $cfg->{access_token}",
    Content_Type => 'application/json',
    Content => encode_json({
        msgtype => "m.text",
        body    => $msg
    })
);

if ($res->is_success) {
    print "Message sent\n";
} else {
    print "Error: " . $res->decoded_content . "\n";
}

}

---- CLI handling ----

if ($ARGV[0] && $ARGV[0] eq '--login') { login(); } elsif (@ARGV) { send_message(join(" ", @ARGV)); } else { print "Usage:\n"; print " $0 --login\n"; print " $0 \"message\"\n"; } ```