#!perl -w
use strict;
use Win32::GUI ();

use constant WM_DEVICECHANGE => 0x219;
# as per http://msdn.microsoft.com/en-us/library/aa363480%28VS.85%29.aspx

sub device_changed {
    my ($win, @args) = @_;
    Win32::GUI::MessageBox(0,"Device changed: @args\n");
};

my $mw = Win32::GUI::Window->new();

$mw->Hook(WM_DEVICECHANGE, \&device_changed);

$mw->Show();

Win32::GUI::Dialog();
print "Done\n";