$ARTICLE = 100;
open ARTICLE or die "He удается найти статью SARTICLE: $!\n";
while (<ARTICLE>) {... 
# открываем для нашей программы специальный журнал протокола 
# ошибок и предупреждений, поскольку идентификатор LOG 
# зарезервирован 
open(LOG, '>>/usr/spool/news/twitlog');
open(DBASE, '+<dbase.mine'); # открываем для обновления 
open(ARTICLE, "caesar <$article |"); # расшифровка статьи 
open(EXTRACT, "|sort >/tmp/Tmp$$"); # $$ - это наш PID

#!/usr/bin/perl
open(SAVEOUT. ">&STDOUT");
open(SAVEERR, ">&STDERR");
open(STDOUT, ">foo.out") || die "He могу перенаправить stdout";
open(STDERR. ">&STDOUT") || die "He могу сдублировать stdout";
select(STDERR); $| = 1; # отключаем буферизацию
select(STDOUT); $| = 1; # отключаем буферизацию
# это сработает и в субпроцессах
print STDOUT "stdout l\n";
print STDERR "stderr l\n";
close(STDOUT); 
close(STDERR);
open(STDOUT, ">&SAVEOUT");
open(STDERR, ">&SAVEERR");
print STDOUT "stdout 2\n";
print STDERR "stderr 2\n";

open(FILEHANDLE. "<&=$fd")

open(FOO, "|tr '[a-z] ' '[A-Z]'");
open(FOO, "|-") || exec 'tr', '[a-z]', '[A-Z]';
open(FOO, "cat -n '$file'|");
open(FOO, "-|") || exec 'cat', '-n', $file;

$file =~ s/^(\s)/./$1/;
open(FOO, "<$file\0");