open(Input, '+<…') || die "No such file found!";

##</code><code>##

open my $input, '+<', 'file...';

##</code><code>##

perl script.pl > output.txt

##</code><code>##

open STDOUT, '>', 'output.txt' or die $!

##</code><code>##

perl first.pl | perl second.pl

##</code><code>##

while (my $line = <STDIN>) { ... }