Select Code to Download

#!/usr/bin/perl
print "Content-type: text/plain\n\n";
system 'uptime';

$ cat /tmp/uptime-system.cgi
 09:08:55 up  1:10,  4 users,  load average: 1.23, 0.80, 0.48

system("/home/bcrowell/Documents/programming/scripts/fiction_word_to_t
+xt <$in") and die "error executing fiction_word_to_txt: $!\n";