#! perl

# based on overlay-osc
# printf "\033]777;notification;send;args\007"
#

sub on_osc_seq_perl {
   my ($self, $osc, $resp) = @_;

   $osc =~ s/^notification;([^;]+)+;//
      or return;

   if ($1 eq "send") {
       system "notify-send", $osc;
   }

   1
}