Internal to ptkdb the variable $DB::no_stop_at_start, will prevent the debugger from stopping immediately when the program starts up. You can create a .ptkdbrc file which supports several api calls to the debugger. One of them is: condbrkpt($fname, $line, $expr) Which will set a conditional breakpoint in $fname at $line and will eval $expr and only stop if it's true.

update:

Breakpoints can even be included into the code if necessary.

sub BEGIN {
    $DB::no_stop_at_start = 1 ;
}
Devel::ptkdb::condbrkpt(__FILE__,__LINE__+1, 'int($ARGV[0]) > 2') if d
+efined $DB::single ;
print "hello world\n" ;
[download]

Update: Snippet of code for inline breakpoint function: snip