#!/usr/bin/perl
use strict;
use warnings;

print "H";
sleep(1);
print "a";
sleep(1);
print "l";
sleep(1);
print "l"
sleep(1);
print "o";