#!/usr/bin/perl

sub say_hi {
	local($filehandle,$times) = @_;
	$times = 1 if $times eq "";
	print $filehandle "hi to $filehandle!\n" x $times;
}

&say_hi(STDOUT);
&say_hi(STDERR,3);
