sub calc
{
   my ($var) = @_;
   my $text = $var x 10000; 
   print md5($text);
}