open(city, "city.cpp.txt") || die ("sorry, file couldn't be opened. $!"); $content = ; while ($content) { print "$content"; $content = ; } close (city);