$ perl -de 1             
[...]
  DB<1> ($a,b) = whatever
Terminated
# I have to kill it