Select Code to Download

my $debug        = $ENV{'dbg'};

sub debugInfo {    
...
    my $lineWhereCalled= ( caller(0) )[2] || ( caller(1) )[2];
    print STDERR ("\033[1;31m\t$iWasAt\033[0m\@\033[1;32m$lineWhereCal
+led:\033[0m \t\t@_\n") if ($debug); 
}

    main@139:         wchodze w loopa, iteracja:4
    Database::sql_connect@144:         entry: 
    API::base@13:         entry: config