Select Code to Download

set theWindowTitle to "PerlMonks"
set theSuffix to text returned of (display dialog "Enter a file suffix
+:" & return default answer "" with title theWindowTitle)
...
end repeat

#!/usr/bin/perl

while (<>) {print}

Karls-Mac-mini:find karl$ cat foo.txt bar.txt 
foo
bar