Select Code to Download

#!/usr/bin/perl -T
use strict;
...
    setsid or die "Can’t start a new session: $!";
    open STDERR, '>&STDOUT' or die "Can't dup stdout: $!";
}