Recompress interlaced video from camera to x264

recompress.pl

#!/usr/bin/perl
use warnings;
use strict;
my $in  = $ARGV[0] || '';
my $out = $ARGV[1] || '';

unless(defined($in) && -e $in) {
   die "File [$in] does not exists; $!";
}

unless ($out){
   ($out = $in) =~ s/\.\w{2,3}$//;
   $out = "$out\_compressed.avi";
}

unlink 'divx2pass.log' if -e 'divx2pass.log';

my $pass1 = 'mencoder  -vf yadif -ovc x264 -x264encopts subq=7:partitions=all:8x8dct:me=umh:frameref=5:bframes=3:b_pyramid:weight_b:pass=1:threads=2:bitrate=2500 -nosound -o /dev/null ' .  $in;
my $pass2 = 'mencoder  -vf yadif -ovc x264 -x264encopts subq=7:partitions=all:8x8dct:me=umh:frameref=5:bframes=3:b_pyramid:weight_b:pass=2:threads=2:bitrate=2500 -oac mp3lame -lameopts preset=medium -o ' . "$out $in";

system($pass1);
system($pass2);