#!/usr/bin/perl
# Core Module
use strict;
use warnings;
use IO::Handle;

STDOUT->autoflush(1);
print "Bitte warten...";
sleep 3;
print "Fertig\n";