Perl Admin login page finder

[sQuo]

>#!/usr/bin/perl

####################################
#Admin login page finder
#Author: b0ne^
#Greetz: c0ax, EKV, Maxell, baltazar
####################################

use LWP::Simple;

my $os = $^O;

if($os eq "linux")
{
  system("clear");
} elsif($os eq "MSWin32")
{
  system("cls");
}
system("title Admin login page finder by b0ne^");

print "Usage: www.example.com\n\n";
print "Enter website link: ";

$link = ;
chomp $link;

if($link !~ /\/$/)
{
  $link = $link."/";
}
if($link !~ /www./)
{
  $link = "www.".$link;
}
$find = "http://";
$replace = "";
$find = quotemeta $find;
$link =~  s/$find/$replace/g;

@dodaci = ('admin/','adm/','admin_page/','adminpage/','admin_login/','adminlogin/','admin_area/','adminarea/','admin_panel/','admin-panel','adminpanel/','admincp/','admin-cp/','admin_cp/','admin-control/','admin_control',
'admincontrol/','admin-system/','adminsystem/','admin_system/','administrator/','administrator_login',
'administrator-login/','administratorlogin/','administrator_page/','administratorpage/','administrator-page/','bb-admin/','bbadmin/','bb_admin','moderator/','moderator_login/','moderatorlogin/','moderator-login/','moderator_page',
'moderatorpage/','moderatorcenter/','moderator_center/','moderator-center/','moderator_area/','moderatorarea/','moderator-area/','moderatorlogin/','moderator_login/','moderator-login/','site_admin/','site-admin',
'siteadmin/','member/','members/','member-login/','member_login/','memberlogin/','members-login/','members_login/','memberslogin/','member_page/','member-page/','memberpage/','members_page/','members-page',
'memberspage/','root/','website-root/','website_root/','websiteroot/','manage/','managment/','websitemanage/','website_manage/','website-manage/','website_managment/','website-managment/','websitemanagment',
'system/','siteadmin/','site-admin','site_admin/','panel/','wp-admin/','wp-login/','admin.php','adm.php','moderator.php','login.php','manage.php','cp.php','cpanel.php','managment.php','system.php',
'auth.php','admin_auth.php','adm_auth.php','admin2.php','admin-login.php','admin_login.php','adminlogin.php','wp-login.php','wp-admin.php','member.php','members.php','member-admin.php','member_admin.php',
'memberadmin.php','members-admin.php','membersadmin.php','admin.asp','adm.asp','moderator.asp','login.asp','manage.asp','cp.asp','cpanel.asp','managment.asp','system.asp',
'auth.asp','admin_auth.asp','adm_auth.asp','admin2.asp','admin-login.asp','admin_login.asp','adminlogin.asp','wp-login.asp','wp-admin.asp','member.asp','members.asp','member-admin.asp','member_admin.asp',
'memberadmin.asp','members-admin.asp','membersadmin.asp','admin.html','adm.html','moderator.html','login.html','manage.html','cp.html','cpanel.html','managment.html','system.html',
'auth.html','admin_auth.html','adm_auth.html','admin2.html','admin-login.html','admin_login.html','adminlogin.html','wp-login.html','wp-admin.html','member.html','members.html','member-admin.html','member_admin.html',
'memberadmin.html','members-admin.html','membersadmin.html'
);

foreach $part(@dodaci)
{
  $link1 = $link.$part;
  $link2 = "http://".$link.$part;
  
  $response = getstore($link2, $link);
  
  if($response == 200)
  {
     print "\n[+] Found: ".$link2."\n\n";
  } else
  {
     print "[-] Not found: ".$link2."\n";
  }

}