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 = ; my $ncookies = 0; sub printcookies { - print "I like cookies " . $ncookies++ . "\n"; + println("I like cookies " . $ncookies++); }