#!/perl -w

use strict;

print "enter user name: ";
chomp(my $username =<STDIN>);

if($username)
    {print "hello ". $username ."\n";}
else
    {print "hello default user\n";}