use IO::Handle qw( );
STDOUT->print("Hello World!\n");