#!/usr/bin/perl
use strict;
use warnings;
use IO::Handle 1.24;
STDOUT->autoflush(1);

print "Guten Tag!\nBitte Zugangscode eingeben: ";
my $code = <STDIN>;
chomp($code);
print "Danke fuer '$code'\n";