#!/usr/cs/bin/perl

for(my $i=0; $i>=26; $i--)
{
   `caesar $i thomasfile`;
}