use strict;
sub _print
{
print STDOUT $_[1];
}
1;