#!/usr/local/bin/perl

use CGI qw(:cgi);
print "Content-type: text/plain\n\n";

# Tells Director that text is coming to it

#This reads in the data that Director has send to this script
#This data is passed in via the "stuff" parameter
#We then store it in our own variable called $dir_in so we can use it
#later
srand;

$dir_in = param('stuff');

print "Interesting that you should say \"$dir_in\" - I agree
entirely.\n";


@words = split(/ /, $dir_in);
# print "@words\n";
@reversewords = reverse @words;

print "@reversewords\n";