Select Code to Download

sub delimit {
    my ( $tos, $ccs, $rp, $sb, $body, $in_file ) = @_;
...
        }    # end of while
    }    # end of if
}    # end of sub

open my $fh, '<', $in_file or die "Error: can not open file $in_file $
+!";