#!/usr/bin/perl
use strict;
use warnings;

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

---

Would you like to get
updated when I publish
the next article?

Follow me: