#!/usr/bin/perl -w

use strict;

my $fh = select;

print $fh "Hello\n";