##

#!/usr/bin/perl -wT
use strict;
my @files = glob("./jpegs/*.jpg");
print "Location: $files[int(rand @files)]\n\n";