Select Code to Download

open TEST,"@ARGV[0]";

open(my $TEST, "<", $ARGV[0])
   or die("Can't open \"$ARGV[0]\": $!\n");

$flag = "ON"
...
$flag = "OFF"

my $looking = 1;
...
$looking = 0;

while (<TEST>)

while (<>)

if (/test/ and $flag eq "ON")

if ($looking && /test/)

print "start";

print "start\n";

say "start";

close TEST;

use strict;
use warnings qw( all );
...
      $looking = 0;
   }
}

use strict;
use warnings qw( all );
...
      last;
   }
}