Select Code to Download

1         2   3   4  5  6   
ATOM      1  CA  PRO A 889      84.370  72.820  26.830  1.00  0.00    
+        
...
ATOM      4  CA  PHE A 892      93.640  74.890  28.970  1.00  0.00    
+        
ATOM      5  CA  HIS B 893      97.060  74.200  27.360  1.00  0.00    
+        
ATOM      6  CA  LYS B 894      99.880  73.920  29.990  1.00  0.00

1         2  3    4  5  6 
     
...
ATOM      5  CB  PRO A 889      17.553  13.151   3.502  1.00 72.96    
+       C  
ATOM      6  CG  PRO A 889      18.315  12.067   2.782  1.00 78.00    
+       C  
ATOM      7  CD  PRO A 889      17.626  11.907   1.465  1.00 73.35    
+       C

print "\nEnter the network pdb file file: ";
$inputFile = <STDIN>;
...

# close the output file
close (OUTFILE);