Hi ikegami,

I tried to run what you posted and I seem to be getting a syntax error and I'm not sure how to fix it.

syntax error at -e line 1, near ");"
Execution of -e aborted due to compilation errors.
[download]

Update: I replaced this

if (!eval { do shift; 1 } or die("(F) $@");
[download]

with this

if ( !eval { do shift; 1 } ) { die( "(F) $@" ) };
[download]

I'm not sure if this would change the logic of the original code...