Select Code to Download

my @files = qw(file01 file02 file03 file04 file05); 

...
  printf $pdb "%10.5f%10.5f%10.5f\n",$bx,$by,$bz;
  close $pdb; 
}