#!/usr/bin/env perl use strict; use warnings; use open qw( :encoding(UTF-8) :std ); use File::Copy; copy( $_, \*STDOUT ) for @ARGV; --- via perlbug: queue: perl5 status: open https://rt.perl.org/Ticket/Display.html?id=133102