shell$ perl -e 'my $input;  # not yet defined 
         print q(Romeo );
  #test for the scalar to be not defined to be true 
  !defined $input ? print q(undefined ) :
         $input ? print q(is ) : print q(is not ); 
print qq(\n taking ),length($input),qq( hours to decide!\n);