Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    $EXON_IN = <$i/*test.txt>;
    print "$i, -$EXON_IN-\n";
}

[scott@blast test]$ ./test.pl
0, -0/0_test.txt-
...
Use of uninitialized value in concatenation (.) or string at ./test.pl
+ line 7.
3, --
4, -4/4_test.txt-

[scott@blast test]$ ls -R
.:
...

./4:
4_test.txt