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

my $name;

print "Wie heißen Sie? ";
$name = <STDIN>;
chomp $name;
print "Hallo $name! \n";
print "hello world\n";