# HG changeset patch
# User yves
# Date 1327499879 18000
# Node ID 0ed6eb245448ea0dc1c6dca540b54b8949d98cd3

Uploaded

diff -r 000000000000 -r 0ed6eb245448 test_perl.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test_perl.pl	Wed Jan 25 08:57:59 2012 -0500
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+
+$fq_file = $ARGV[0];
+$count_lines = 0;
+open(FQ,"<$fq_file") or die "Cannot open file [$fq_file] : $!\n";
+while (<FQ>) {
+   $count_lines++;
+}
+close(FQ);
+print "Found [$count_lines] lines\n";
+exit;
\ No newline at end of file