#!/usr/bin/perl -w
use strict;

$| = 1;

use Futils; my($f) = Futils->new();

die(<<__USAGE__) if scalar(@ARGV) < 2;

   USAGE:   $main->{'SCRIPT'} --outfile [newfile], [files to merge]

__USAGE__

foreach(@ARGV[1..-1]) { $_ = $f->load_file($_) }

$f->write_file( 'file' => $ARGV[0], 'content'  => join(qq[\n], @files) );