Select Code to Download

open my $output, '>-' or die $!;

open my $output, '>&', *STDOUT or die $!;

open my $output, '>-' or die $!;
close *STDOUT;
print {$output} "This fails with Bad file descriptor";

open my $output, '>&', *STDOUT or die $!;
close *STDOUT;
print {$output} "This prints OK\n";

my $output = *STDOUT;

close STDOUT;
print {$output}
    'Besides Bad file descriptor, this will also warn "print() on clos
+ed filehandle STDOUT"';

#!/usr/bin/perl
use strict;
...
my $what = shift;
my $code = $dispatch{$what} or die 'Not associated';
test($code);