Aquí un buen ejemplo de la utilidad de GTP. Le vamos a pedir (en inglés) que nos de un archivo de forma aleatoria de un directorio, utilizando le lengua Perl.
give me in Perl an aleatory file from directory
#!/usr/bin/perl
use strict;
use warnings;
# Get the directory path from the command line argument
my $dir = $ARGV[0];
# Get a list of all files in the directory
opendir(my $dh, $dir) or die "Couldn't open dir '$dir': $!";
my @files = readdir($dh);
closedir($dh);
# Select a random file from the list of files
my $random_file = $files[rand @files];
print "$random_file\n";