#!/usr/bin/perl

use warnings;
use strict;
use Glib qw/TRUE FALSE/;
use Gtk2 -init;
use IO::File;


my $window = new Gtk2::Window ( "toplevel" );
$window->signal_connect ("delete_event", sub { Gtk2->main_quit; });
my $button = Gtk2::Button->new('foo');
$window->add($button);
$window->show_all;

my $dsp = new IO::File("</dev/dsp");
my $event_source_tag = Glib::IO->add_watch(
  fileno($dsp),
  'in',
  sub {
    my $buff = " " x 1024;
    my $nread = read($dsp,$buff,1024);
    return 1;
  }
);
Gtk2->main;
exit(0);