perl -e 'system splice @ARGV; readline' echo foo