sub emphasizePrint
{
  my $k = qq{"!!\n};
  return sub {
    my ($str) = @_;
    eval (qq{print "$str$k"});
    print STDERR "Error: $@" if ($@);
  }
}
__END__
Error: Can't find string terminator '"' anywhere before EOF at (eval 1) line 2.