while (my $line = <STDIN>) {
    say $line;
}