Select Code to Download

    #!/usr/bin/perl
    use strict;
...
        ## open(STDERR, ">&STDOUT") || die "can't dup stdout to stderr
+";
        exit &$coderef();
    }

#!/usr/bin/perl

...
    undef $sock;
}