#!/usr/bin/perl

use strict;
use warnings;
use OutBuffer;

my $ob = OutBuffer->new(tmpdir => 'd:/tmp') or die $@;
$ob->start; # die Ähnlichkeit mit PHP ob_start ist rein zufällig

# ein paar print-Anweisungen
print 123456789, "\n", "...hau rein ...\n";
# sehnix

# hier ein paar kritische Sachen, wo eine
# Exception geworfen werden könnte
eval{ die 123};

print "Hallo???"; # und noch ein print...

# harvest
# try/catch
if($@){
	$ob = undef;
	print $@;
}
else{ $ob->out; }