Select Code to Download

$ perl -E 'open my $fh, ">", "xxx"; close $fb; open my $fh, ">", "yyy"
+'
$

$ perl -E 'use strict; use warnings; open my $fh, ">", "xxx"; close $f
+b; open my $fh, ">", "yyy"'
"my" variable $fh masks earlier declaration in same scope at -e line 1
+.
...
Execution of -e aborted due to compilation errors.
ken@ganymede: ~/tmp
$

$ perl -E 'use strict; use warnings; { open my $fh, ">", "xxx"; } open
+ my $fh, ">", "yyy"'
$

use strict;
use warnings;

die "CANNOT OPEN LOG";

die "CANNOT OPEN LOG '$logfilename': $!";

select $fh;
print "...";
...
print "...";
select STDOUT;
print "...";

print $fh "...";
print STDERR "...";
print "...";

my $open_ok = open my $fh, $mode, $filename;
if (not $open_ok) {
    # custom error handling here
}

#!/tps/bin/perl

...
    print $fh "...";
    print "...";
}