On top of what others have said-
I suggest turning on Perl's taint mode (-T) see perlman:perlsec for the details. With your code as is taint mode will barf unless you have sanitized $server. Taint mode will also pick up another potential security hole in your code - you call "clear" without specifying a path, which means that the first program called clear found in the search path will be executed, which may not be clear at all :) I always undefine $ENV{PATH} and specify the full path to each program I want to call. A tip I picked up from the Perl Cookbook:

my $clear=`/path/to/clear`;
# and then whenever you want to clear the screen-
print $clear;
[download]

--
Until you've lost your reputation, you never realize what a burden it was or what freedom really is. -Margaret Mitchell