# ./findem.pl /home/me /home/you

##</code><code>##


#!/usr/bin/env perl

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

 my @files = find(
 	file =>
 	name => [qw/ *.mkv *.avi / ],
 	in => @ARGV
 	);

foreach my $infile (@files) {
    print $infile . "\n";
}