Select Code to Download

#!/usr/bin/perl
use strict;
...

    print $line2 if defined $line2;
}

blank line goes here!!
B
...
E
blank line goes here!!
G