Select Code to Download

print B "@actualsyll\n";

print B @shift3\n";

#Loop gets all files matching ex. 2 opens them;
foreach $file (<s*.words>) {
...
print B "$shift3\n";
}
close C;