What error do you get? The code works for me, after filling in the blanks.

#!/usr/bin/perl -w
use strict;

my $errmsg = "Too Few Characters in Company Login Name";

sub err{
    print $errmsg;
}

my $compname = "Sears";
&err if (length($compname) < 6); # prints $errmsg

$compname = "Sears Roebuck";
&err if (length($compname) < 6); # doesn't.
[download]