Untitled

#!/usr/bin/perl -w

#print "Please Enter the bitrate:";
#$vbir = <STDIN>;
#use POSIX ":sys_wait_h";
opendir(DIR,".") or die "Couldn't open $!";
our @names = readdir(DIR) or die "Couldn't open $!" ;
closedir(DIR) ;


foreach my $name (@names) {
        if ($name =~ /avi$/) {
                my $var = $name ;
                my $var2 = $name ;
                $var2 =~ s/\.avi$// ;
                my $child = fork();
                unless($child) {
                        system('mplayer','-vo','null','-vc','null','-ao','pcm:fast:file=temp/output.wav',qq($var)) == 0 or die "$?" ; 
                        system('nice','-n','10','oggenc','-b','48','temp/output.wav','-o','temp/output.ogg') == 0 or die "$?" ;
                        exit 0 ;
                }
                system('nice','-n','10','mencoder',qq($var),'-nosound','-ovc','x264','-x264encopts','crf=27:subq=6:partitions=all:8x8dct:me=umh:frameref=15:threads=auto','-o',qq(temp/$var)) == 0 or die "system 'mencoder' failed: $?" ;
                system('ogmmerge','-o',qq(temp/$var2.ogm), qq(temp/$var),'temp/output.ogg') ; 
                system('rm',qq(temp/$var)) ;
        }
}