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";