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