#!/usr/local/bin/perl

$excite{"submission_page"} = "http://www.excite.com/cgi/add_url_new.cgi";
$excite{"method"} = "GET";
$excite{"success"} = "Thank you!";
$excite{"url"} = "$input_url";
$excite{"email"} = "$input_email";
$excite{"look"} = "excite";

$sitename = excite;

$NumLeys = keys %$sitename;

print "$NumLeys\n";