print "Name: ";
my $name = <STDIN>;
print "Hallo $name\n";