use constant WM_ONDEVICECHANGE => 0x219; # as per http://msdn.microsoft.com/en-us/library/aa363480%28VS.85%29.aspx
$window->Hook(\&device_changed);

sub device_changed {
    ...
};