Help for this page

Select Code to Download

Select or download this

#!perl

# called as catFiles.pl input1 input2 > output

exec( qw(perl -MExtUtils::Command -e cat), @ARGV );

Select or download this

#!perl -w

...

my ($output, @inputs) = @ARGV;
exec("perl -MExtUtils::Command -e cat @inputs > $output");