#!/usr/bin/perl -w
# zenconv.pl --- Converts Files for play on Creative Zen
# Author: William Mayo <pobocks@davemayo.is-a-geek.org>
# Created: 06 Jan 2009
# Version: 0.01

use warnings;
use strict;
die "Wrong Number of Args, stupid!\n" if (@ARGV != 2);

my $arg1 = shift;
my $arg2 = shift;

$arg1 =~ s/ /\\ /g;
$arg2 =~ s/ /\\ /g;

open (CONVERSION, '-|', "mencoder $arg1 -oac mp3lame -aid 128 -ovc xvid -xvidencopts bitrate=-1 -vf scale -zoom -xy 320 -o $arg2");

{
    local $| = 1;
    while ( <CONVERSION>) {
        print $_;
    }
}

close (CONVERSION);