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

print "Ihre Eingabe? ";
chomp( my $input = <STDIN> );

print "Ihre Eingabe war '$input'\n";

__END__