#!perl

# called as catFiles.pl input1 input2 > output

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