#!/usr/bin/perl$IMAGE_DIRECTORY = "enter the path to your image directory here";my $line = "";my $file1= "";my $x=0;opendir (DIR,"$IMAGE_DIRECTORY");while ($fileName = readdir(DIR)) { next if (-d $IMAGE_DIRECTORY . $fileName); next if ($fileName !~ /w/); $ls[$x] = $fileName; $x+=1;}closedir(DIR);srand();$file1 = int(rand(@ls));print ("Pragma: no-cachen");if ($ls[$file1] =~ /.gif$/i) { print ("Content-type: image/gifnn");} elsif ($ls[$file1] =~ /.jpg$|.jpeg$/i) { print ("Content-type: image/jpgnn");} else { # exit(0);}open (INPUT, $IMAGE_DIRECTORY . $ls[$file1]);while ($line = ) { # print ($line);}close(INPUT);exit(0);#FILE: random.pl