#!/usr/bin/perl

use warnings;
use strict;

use Data::Dumper;
use IO::Capture::Stdout;


# Aufzeichnung beginnen
my $capture = IO::Capture::Stdout->new;
$capture->start;

# hier jetzt zu "ueberwachenden" Code ausfuehren
{
    print "Erstelle Datenstruktur\n";
    my $data = {a => 1, b => 2, c => 3};

    print Dumper($data);
}

# Aufzeichnung beenden
$capture->stop;

print "Es wurde aufgezeichnet:\n";
print "=======================\n";
print join('', $capture->read);