Select Code to Download

{
  #define thread 1
...
  #define const (100/5)
  #define flag_condn 1
}

{
 thread 
...
 code 
 flag_condn 
}

while (<INPUT>) {
 my @split_data = split(' ', $_);
...
 print "$split_data[1]\n"
 }
}