I Stole Your Cool

use strict;
use warnings;
use HexChat;

HexChat::register( "COOL", "0.1",
   "Print a series of text emojis that make the user look cool!" );
HexChat::hook_command( "COOL", \&display_cool );

sub display_cool {
    HexChat::command "say (•_•)";

    HexChat::hook_timer(1000, sub {
        HexChat::command "say ( •_•)>⌐■-■";
        return HexChat::REMOVE;
    });

    HexChat::hook_timer(2000, sub {
        HexChat::command "say (⌐■_■)";
        return HexChat::REMOVE;
    });

    return HexChat::EAT_HEXCHAT;
}