making a copy for fake greppery

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__