use strict;
use warnings;
use FileHandle;

    my $in = new FileHandle "<&STDIN";
    my $out = new FileHandle ">&STDOUT";
    autoflush $out;

print $out "Hello World!\n";