#!/usr/bin/perl -w

######################################################################
### Voreinstellungen
######################################################################

@MENCODER = ('mencoder', '-vc', 'mpeg12', '-oac', 'copy', '-ovc', 'copy', '-of', 'mpeg', '-mpegopts', 'format=mpeg2', '-aid', '0');

######################################################################
### Hauptprogramm
######################################################################

$OUT = pop @ARGV || Hilfe();

Hilfe() unless defined $ARGV[0];

@IN = @ARGV;

print "'",join(' ',@IN),"' -> '$OUT'\n";

system(@MENCODER, '-o', $OUT, @IN);

######################################################################
### Unterprogramme
######################################################################

sub Hilfe
{
  die "Aufruf: vdr2mpeg2ps Quellfiles Zielfile\n";
}