use strict;
use warnings;

sub main {
     my $eingabe = <STDIN>;
     &hello; # hello ist eine Routine
     print $eingabe, "\n"; # $eingabe ist ein Skalar
}

sub hello {
   print "hi ";
}

&main;