# HG changeset patch
# User yves
# Date 1327500172 18000
# Node ID 7836a7d45d78b17363033d50d30aa7844012b7df
# Parent  0ed6eb245448ea0dc1c6dca540b54b8949d98cd3
Deleted selected files

diff -r 0ed6eb245448 -r 7836a7d45d78 test_perl.pl
--- a/test_perl.pl	Wed Jan 25 08:57:59 2012 -0500
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,11 +0,0 @@
-#!/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