mplex -f 8 -o ziel.mpg quelle.m2v quelle.ac3 quelle.mp2

#!/usr/bin/perl -w

$menue = <<HERE_MENUE;

mplex-Konvertierung v0.1 05.10.2006

mplex-Konvertierung starten  <1>
beenden                      <2>

HERE_MENUE

$ziel = 0;
$z_video = 0;
$z_mp2 = 0;
$z_ac3 = 0;

do
{
    print $menue;
    chomp ($eingabe = <STDIN>);
    
    WECHSEL:
    
    {
    $eingabe == 1 && do {print "\n\n**** Willkommen beim mplex-Perl-Skript ****\n";
    print "\nDieses Skript fragt nacheinander die einzelnen\n";
    print "mplex-Befehle ab. Bitte diese eingeben und mit ENTER\n";
    print "jeweils abschliessen!\n";

    print "Bitte geben Sie den Zielnamen ein:\n";
    chomp ($ziel = <STDIN>);
    print "Bitte geben Sie den Quellnamen inkl. Pfad der Videodatei (m2v) an:\n";
    chomp ($z_video = <STDIN>);
    print "Bitte geben Sie den Quellnamen inkl. Pfad der Audiodatei (mp2) an:\n";
    chomp ($z_mp2 = <STDIN>);
    print "Bitte geben Sie den Quellnamen inkl. Pfad der Audiodatei (ac2) an:\n";
    chomp ($z_ac3 = <STDIN>);
    print "*** Ihre Eingaben sind abgeschlossen ***\n";
    print "Zur Kontrolle hier nocheinmal Ihre Angaben:\n";
    print "Sie wollen die Datei $ziel aus folgenden Dateien erzeugen:\n";
    print "Videodatei: $z_video\n";
    print "MP2-Audio: $z_mp2\n";
    print "AC3-Audio: $z_ac3\n";
    print "mplex -f 8 -o $ziel $z_m2v $z_ac3 $z_mp2\n";
    last WECHSEL;};
    
    $eingabe == 2 && do {print "Skript beenden.\n";
    last WECHSEL;};
    }
} while ($eingabe != 2);