Select Code to Download

my $dir   = '//path/to/my/SpamQuoteFilesDirectory';
my $file  = random_file(-dir => $dir);
my @lines = random_line($fname, int(rand(5)) + 1);