#!/usr/bin/perl
use strict;
use warnings;
#use IO::Handle;

sub IO::Handle::print
{
  my $fh=shift;
  print $fh @_;
}

STDOUT->print("NOCH EIN TEST\n");