sub ccmexec_nodie {
	my $command = shift;

...

sub myprint {
	my $level = shift;
	my $string = shift;