From 80271d9649f43600f89643f632b854f4ea8bbbb2 Mon Sep 17 00:00:00 2001
From: Dan Buch <daniel.buch@gmail.com>
Date: Tue, 4 Jan 2011 21:41:55 -0500
Subject: [PATCH] more futzing with operators (and dumpster diving perlmonks
 about println func)

---
 cli/operators.pl | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/cli/operators.pl b/cli/operators.pl
index 2d247d3..c2dfd12 100644
--- a/cli/operators.pl
+++ b/cli/operators.pl
@@ -1,5 +1,11 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+
 sub println {
-    printf("%s\n", shift());
+    local $, = "";
+    print +(@_ ? @_ : $_), $/;
 }
 
 
@@ -58,7 +64,7 @@ my $c = <STDIN>;
 my $ncookies = 0;
 
 sub printcookies {
-    print "I like cookies " . $ncookies++ . "\n";
+    println("I like cookies " . $ncookies++);
 }