Select Code to Download

#!/usr/bin/env perl
use warnings;
...
}
die "Marker not found" unless $found;
untie @lines;