### I run this from the command line:
/usr/bin/perl mover.pl The.Rookie.S05E14.720p.HEVC.x265-MeGusta[eztv.re].mkv

##</code><code>##

    unless ( -e $ARGV[0] ) {
        die("$ARGV[0] doesn't exist");
    }

##</code><code>##

    say "move command: 'mv $ARGV[0] ./r/'";
    system("mv $ARGV[0] ./r/");