Select Code to Download

[CODE]
1000
...
AMY     AMY2376G
NOOR    NOO2376G
MONK    MON2376G

$code = 1000

...
.
.
etc

open ( input , "../input" ) or die " .... ";
while (<input>)
...
.
.
}