open(Дескриптор_файла, ">путь_к_файлу") || DIE ("Не могу: $! (... Импотэнт =)");

print Дескриптор_файла "СТРОКА";

close(Дескриптор_файла)

for ( $а=100000; $а<1000000; $а++ ) 
{
print Дескриптор_файла "$a\n" || DIE ("Не записывается ((");
}

open(PAS, ">log.txt") || DIE ("Не могу: $! (... Импотэнт =)");
for ( $а=100000; $а<1000000; $а++ ) 
{
print PAS "$a\n" || DIE ("Не записывается ((");
}
close(PAS);