Select Code to Download

use strict;
use warnings;
...
    }
}
close $fh;

Code>perl test15.pl
line is: This is line one.
Line Two is this.
Third line starts here.
This is line four.