You could do something like:

print "Enter some files (on one line):\n";
$files=<>;
@files=split $files;
print "@files\n";
print "What is your favorite color?__";
$response=<>;
print $response,"\n";
[download]

chas
(*Update*: Sorry, I misunderstood what you wanted to do; this wasn't a good answer...I thought you just wanted to read the files from STDIN and then read in some other responses; I overlooked the "piping".)