- or download this
use strict;
use warnings;
use File::Find::Rule;
- or download this
my $itunes = '"/Volumes/Media/iTunes/iTunes Media/Automatically Add to
+ iTunes/"';
- or download this
my(@files) = File::Find::Rule
- or download this
#!/usr/bin/perl
...
print $file . "\n";
system "$handbrake -i '{$file}' -o '$file.m4v' --preset=$preset";
}