Select Code to Download

1 #!/usr/bin/perl -w
2 use strict;
...
12     print $fields[1], "\r";
13 }
14 close $datfh;