Select Code to Download

#!/usr/bin/perl –Tw        

...
my $dir   = '//spam_oracle/infinity';
my $file  = random_file(-dir => $dir);
my @lines = random_line($fname, int(rand(5)) + 1);