Extract lines between two patterns

mnithink has asked for the wisdom of the Perl Monks concerning the following question:

Hello Perl-experts, I am new to perl and need help to solve a problem. I have a table in below format.

<Text A>
<Pattern1>
A Value
B Value
C Value
D Value
<Pattern2>
<Text B>
[download]

This table is in file1. I want to extract lines between Pattern1 and Pattern2 and write it into file2. Please provide me some help to do this. Thanks