sub smarter_eval {
  local $onetimeDump = 'dump'
    if $_[0] =~ /\Aprint\s*\(?/;
  old_eval(@_);
}