Skip to content

Instantly share code, notes, and snippets.

@zed9h
zed9h / trayicon.pl
Created July 17, 2009 03:54
trayicon monitors x11 idle state to perform activities on the desktop applications
#CHECK { print map { "$_\n"} keys %INC }
END { print map { "$_\n"} keys %INC }
use Gtk2::TrayIcon;
Gtk2->init;
sub evolution_empty_trash
{
system qq{
@zed9h
zed9h / ambient.pl
Created July 17, 2009 03:54
random ambient sound (pink/red noise)
#!/usr/bin/perl
use strict;
use warnings;
use Math::FFTW;
use Audio::DSP;
use Time::HiRes qw(time);
my $amp = 0xffff;
my $len = 0xfff;