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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

#!/usr/bin/perl

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

my $handbrake = '/usr/local/bin/HandBrakeCLI';
my $preset = 'AppleTV';
my $itunes = '"/Volumes/Media/iTunes/iTunes Media/Automatically Add to iTunes/"';
my $tvtag = '/usr/local/bin/tvtag-sickbeard.pl';

my(@files) = File::Find::Rule
    ->file()
    ->name( qr/\.(mkv|avi)$/ )
    ->in( @ARGV );

@files = join("\n", @files, '');
print "\nFound the following files to convert:\n\n@files\n";

foreach my $file(@files) {
	print $file . "\n";
	system "$handbrake -i '{$file}' -o '$file.m4v' --preset=$preset";
}