{
  package DieSilently;
  use overload q{""} => sub { '' };
  sub now { die bless(\$_[0],$_[0]) }
}

print STDERR "Hello!\n";
DieSilently->now();
print STDERR "World!\n";

#outputs ($ are the command prompt) 
$ Hello!
$