package Debug;

use strict;
our(%debug);

sub print
{
  my ($who, $what) = @_;
  print "$who: $what\n" if $debug{$who};
}

1;