use DBI;

  my $dbh = DBI->connect('dbi:WMI:');
  my $sth = $dbh->prepare(<<WQL);
    Select * From __InstanceCreationEvent
    Within 1
    Where TargetInstance Isa 'Win32_DiskDrive'
    And TargetInstance.InterfaceType = 'USB'
WQL

 $sth->execute();
  while (my @row = $sth->fetchrow) {
    my $proc = $row->[0];
    print "USB inserted\n";
    }