gistfile1.pl

sub check_sudo {
    my @commands = (
        '/bin/netstat',
    );

    my @unexecutable = grep {
        system("sudo -l -U user $_ > /dev/null 2>&1") != 0;
    } @commands;

    message_for_sudo(@unexecutable);
}

sub message_for_sudo {
    my @commands = @_;
    return if scalar(@commands) == 0;

    print "Please add lines below to /etc/sudoers or /etc/sudoers.d\n\n";
    print "======================================================\n";
    print "zabbix ALL=(root) NOPASSWD: $_\n" for (@commands);
    print "======================================================\n";
}