Select Code to Download

my $tac_pid = open my $fh, "tac $logfile |";
while (<$fh>) {
...
}
kill 13, $tac_pid; # SIGPIPE
close $fh;