Select Code to Download

package Preempt::Stdin;
use strict;
...
}

1;

package main;
use strict;
...
        }
    }
}

    local $SIG{__WARN__} = \&_capture;
    tie *STDIN, 'Preempt::Stdin', @lines;
    ...  # as before