From 95d7f5273fbc145e18e0a271a3432bfe26346b7b Mon Sep 17 00:00:00 2001
From: Dan Buch <daniel.buch@gmail.com>
Date: Thu, 6 Jan 2011 23:22:14 -0500
Subject: [PATCH] making a copy for fake greppery

---
 cli/ex03/rwfakegrep.pl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 cli/ex03/rwfakegrep.pl

diff --git a/cli/ex03/rwfakegrep.pl b/cli/ex03/rwfakegrep.pl
new file mode 100644
index 0000000..eaef5ec
--- /dev/null
+++ b/cli/ex03/rwfakegrep.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use File::Basename;
+
+my $basename = basename($0);
+my $USAGE = <<USAGE
+Usage: $basename <infile> <outfile>
+USAGE
+;
+
+open(INFILE, '<', $ARGV[0]) or die "$USAGE\n$!";
+open(OUTFILE, '>', $ARGV[1]) or die "$USAGE\n$!";
+
+foreach my $inline (<INFILE>) {
+    print OUTFILE $inline;
+}
+
+
+
+1;
+__END__