Select Code to Download

use strict;
use warnings;
use File::Find::Rule;

my $itunes = '"/Volumes/Media/iTunes/iTunes Media/Automatically Add to
+ iTunes/"';

my(@files) = File::Find::Rule

#!/usr/bin/perl

...
    print $file . "\n";
    system "$handbrake -i '{$file}' -o '$file.m4v' --preset=$preset";
}