Get redmine issues title for pomojs

pomo.pl

#!/usr/bin/perl

use strict;
use warnings;

use Carp;

use WWW::Mechanize;
use Mojo::DOM;
use String::ShellQuote;

my $site = 'https://redmine-url/issues/' . $ARGV[0];
my $mech = WWW::Mechanize->new();

$mech->get($site);
my $form = $mech->form_with_fields(qw(username password));
$mech->field('username', 'username');
$mech->field('password', '********************');
$mech->submit();

# Parse
my $dom = Mojo::DOM->new($mech->content);

my $title = $dom->find('div.subject h3')->text;
my $string = "[TECH] refs #" . $ARGV[0] . ' - ' . $title;

# Find
print $string . "\n";
exec 'pomojs --log ~/.pomo.log --tmux -w 25 ' . shell_quote $string;