sub Print{
  my $string = shift();
  print STDOUT "$string\n";
}