-command => eval 'sub {print -'.$subs[$i].'-'.$i."\n"; }",