use LWP::Simple; 
{ 
  print "Target Email: "; 
  $host = <STDIN>; 
  chop $host 
   
}  
 
{ 
  print "# Number Loops: "; 
  $loopamount = <STDIN>; 
  chop $loopamount 
   
}  
 
   
 
   $req = HTTP::Request->new(POST => 'mailto:$host'); 
  $req->header(Subject => "Owntedsohard"); 
  $req->content("OwntmoreGG!\n");; 
   
  for ($req = $loopamount; $req >= 1; $req--) { 
print "$loopamount "; 
} 
print "Email Ownt so hard.\n";