sub emphasizePrint
{
  my $k = "!!\n";
  return sub {
    $k; ## <- INSERTED
    my ($str) = @_;
    eval (q{print "$str$k"});
    print STDERR "Error: $@" if ($@);
  }
}