#!/usr/bin/env perl
use warnings;
use strict;
use 5.10.1;


print "Enter a string: ";
my $g = <>; # ein paar buchstaben eingeben und dann 2 x Strg-D drücken
say $g;

my_routine();

sub my_routine {
    print "Enter a character: ";
    my $h = getc;
    if ( defined $h ) {
        say $h;
    }
    else {
        warn "EOT: $!";
    }
}