my $print = emphasizePrint();
$print->("Hello World"); ## Prints "Hello World!!"

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