sub printL {
	my $str = shift;
	my $widthL = 60;
	#my $widthR = 80;
	my @strWrap = ();
	
	for (1 .. int (length $str)/$widthL ) {
		push @strWrap, substr($str, 0, $widthL-1, '')."\n"; 
	}
	#push @strWrap, $str;
	print "@strWrap";
	printf ("%-80s", "$str");
}


sub printR {
	if (@_ == 1){
		my $status = shift;
		print "$status\n";
	} elsif (@_ == 2){
		my $status = shift;
		my $msg = shift;
		print "$status\n$msg\n";
	}
}