wp.pl

#!/usr/bin/perl
# wp.pl - write to file and stdout
use strict;
use warnings;
use POSIX "strftime";

my $file = strftime "%Y-%m-%d_%H-%M-%S.log", localtime;

open (my $fh, ">", $file) or die "cannot open $file: $!\n";

foreach my $line (<STDIN>) {
  print STDOUT "$line";
  print $fh "$line";
}

close $fh;