foreach (@text){
open(FILE,">file.txt");
print FILE $_;
close(FILE);
print `print file.txt`;
};