#!/usr/bin/perl -w

$dir="/home/nai/TV";
chomp($date=`date +%d.%m`);
$ext='avi';
$avifile="$dir/$date.$ext";

if(-e "$avifile"){
    do{ ++$n; }
    while(-e "$dir/$date-$n.$ext");
    $avifile="$dir/$date-$n.$ext";
}
system("aumix -L");

system("transcode -i /dev/video0 -p /dev/dsp \\
	-V -u 100 -g 384x288 -f 0,3 -y ffmpeg -F mpeg4 \\
	-o $avifile -w 2000,250,100 -b 96,0,5 -s 5 ");