#!/usr/bin/perl

require "cgi-lib.pl";  ## THIS LIBRARY CAN BE EASILY FOUND ON THE WEB
&ReadParse;

open (FP, "> temp");   ## SAVE THE UPLOADED FILE
print FP $in{fn};
close (FP);

$MSG = `/usr/local/bin/cfdecrypt < temp`;  ## DECRYPT IT (YES YOU NEED A BINARY)

## DISPLAY FORM AND DECRYPTED FILE
print qq {Content-type: text/html

<form method="post" enctype="multipart/form-data">
<input type="file" name="fn">
<input type="submit">
</form>
<xmp>$MSG</xmp>
}

## SEE, NOTHING TOO IT!