random_movie.pl

#! /usr/bin/perl -w

use strict;

use feature qw(say);

opendir my($dh), '/cygdrive/s/Videos/Movies' or die "Couldn't open Movies directory: $!";
my @files = grep(!/^\./, readdir $dh); #ignore dotfiles/pseudodirs
closedir $dh;

say "Watch ".$files[rand(@files)]."!";