#!/usr/local/bin/perl
use CGI;
$q = new CGI;
$cookie_in = $q->cookie("username"); 
if($cookie_in) 
{ 
   print $cookie_in; 
}  
else 
{ 
  print "Can't find cookie\n";
}