my $line = <$input>;
# tu was mit $line