#!/usr/local/ActivePerl-5.10/bin/perl
use strict;
use warnings;
use feature qw/say switch/;

# detect debugger ..
SayDebugerStatus();
sub SayDebugerStatus {
   print "Debugger ";
   given ($DB::single) {
      when (undef) {
         say "not loaded.";
      }
      when (0) {
         say "loaded but inactive";
      }
      default {
         say "loaded and active";
      }
   }
   return defined($DB::single) ? 1:0;
}

if ( grep( /.*Komodo IDE.app/g,  values %INC) ){
    say "Komodo is running"
} else {
   say "Komodo is not running"
};

use Data::Dumper;
print Dumper %INC;

if ( $KOMODO_VERSION ){
    say "Komodo is running"
} else {
   say "Komodo is not running"
};