Select Code to Download

#!/usr/bin/env perl

...
    splice(@lines, 0, 0, $_);
    --$emit < 0 ? splice(@lines, $opt{B}) : print splice(@lines, -1);
}