Select Code to Download

{
    local $/ = '====';
    open local(*FILE1), '<', shift or die $!;

    local $_ = <FILE1>;
    while (<FILE1>) {
        my @header_data = header_extract($_);
...
    close DATA1 or die $!;
    redo if @ARGV;
}