#!C:/PERL/BIN/perl.exe -w
# :: Hello.pl ::
# :: This program outputs the text "Hello, World!" ::

print "::  Installing....
::  Initializing....
::  Loading....
::  Done!\n\n";
print "~ How old are you?\n";
print "~ ";
my $age = <STDIN>;
if ($age < 18){
print "                               Access Denied!            \n";
exit
} else{
$cls = "cls";
system($cls);
print "                          Welcome to the cotrol panel            \n\n";
}

print "~ For the help menu type 0\n";
print "~ ";
my $menu = <STDIN>;
if ($menu == 0){
print "                                Help Menu                    \n";
print "1 > Telnet\n\n";
}
print "~ ";
my $menu1 = <STDIN>;
if($menu1 == 1){
system($cls);
print "**********************************************************
*                      WARNING!                          *
*     You have reached a Government Computer             *
* Your computer IP has been recorded and will be send to *
*  FBI for security reasons. Violation of the law line 93*
**********************************************************\n\n";
print "Password: ";
my $pass = <STDIN>;
if($pass == 1337){
system($cls);
print "Type 12 for the help menu\n";
print "% ";
my $hash = <STDIN>;
if($hash == "12"){
print "Connection to host lost.\n";
exit
}
} else{
print "%Login failed\n";
}
print "Password: ";
my $pass2 = <STDIN>;
if($pass2 == 1337){
system($cls);
print "Type 12 for the help menu\n";
print "% ";
my $hash2 = <STDIN>;
if($hash2 == "12"){
print "Connection to host lost.\n";
exit
}
} else{
print "%Login failed\n";
}
print "Password: ";
my $pass3 = <STDIN>;
if($pass3 == 1337){
system($cls);
print "Type 12 for the help menu\n";
print "% ";
my $hash3 = <STDIN>;
if($hash3 == "12"){
print "Connection to host lost.\n";
exit
}
} else{
print "%Login failed
Connection to host lost.\n";
exit
}
}