#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

$|=1;
say "Bitte Eingaben: ";
while (<>) {
  chomp;
  say "Konvertiere '$_' -> '\u$_'"; # Mach riesengroße Buchstaben am Anfang ;)
}

1;