#!/usr/bin/perl -w

use strict;

die "$0 sourcefile1 sourcefile2... destfile\n" if ($#ARGV < 1);

my $target = pop(@ARGV);

die "$target exists, aborting" if ( -e $target);

!system("mencoder", "-oac", "copy", "-ovc", "copy", @ARGV, "-o", $target) or
  system("mencoder", "-oac", "pcm", "-ovc", "copy", @ARGV, "-o", $target);