loop

use LWP::UserAgent;
print "how many requests : ";
$end = <STDIN>;
chomp($end);
print "List for save response : ";
$list = <STDIN>;
chomp($list);
$username = "1337";
$username = "root";
print "Loading !..\n";
for (1..$end){
    $request = LWP::UserAgent->new();
    $response = $request->post('http://localhost/login',{ username => $username , password => $password});
    open(R0T,">>$list");
    print R0T $response->content();
    close(R0T);
}
print "Saved -> $list";