#-----------------------------------------------------------
#!/usr/bin/perl (This code does not work !!!)
#
# between.pl <output file><input file><begin word><end word>
#

open (FH_output, ">> $ARGV[0]") or die "Couldn't open file.txt: $!";
open FH_input, "< $ARGV[1]" or die "Couldn't open file.txt: $!";
while (<FH_input>) {
    if (/^$ARGV[2]$/ .. /^$ARGV[3]$/) {
    	$info = $_ ;
        print FH_output  $info;  
    }
}
close (FH_input) ;
close (FH_output) ;