@ -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++);