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

my $name;
 
print "Hallo Welt\n";
print "Wie ist dein Name?\n";
$name = <STDIN>;
chop($name);
print "Hallo, $name \n";