Select Code to Download

Select or download this

open(my $out, ">C:/Documents and Settings/mydir/Desktop/ltvec_data.txt
+");
my $first_line = <DATA>;
...
C01    12032 L2    NUBI825872    XXXXX Glyc 01/07/2009
D01    12032 L3    NUBI825997    XXXXX Glyc 01/07/2009
E01    12166 B1    NUBI826118    XXXXX Glyc 01/07/2009

Select or download this

my $_dir = 'C:/Documents and Settings/mydir/Desktop/current/Test_Files
+';
open(my $out, ">C:/Documents and Settings/mydir/Desktop/current/Test_F
+iles/data.txt");
...
}
closedir($dh);
</readmore>