Kokia kalba parasytas skriptas?

[^Paulius^]

Radau toki skriptuka, bet prie jo nebuvo parasyta kokia kalba jis parasytas . Kas galit pasakykit kokia kalba parasytas sitas skriptukas?
Stai ir kodas:

Kodas: Pasirinkti visus

 #!/usr/bin/perl
use IO::Socket;
use strict;
my ($hostname, $file, $port) = @ARGV;
$port or $port = 80;
$hostname=~s/^http:W//;
$hostname=~s/V$//;
open(FILE,"<$file") or die "File $file not found!\n";
print "[~] Scan started ($hostname:$port).\n";
while(my $bug=<FILE>){
chomp $bug;
$bug = "/".$bug unless ($bug=~/^V/);
print "$hostname$bug\n" if scan($bug);
}
close(FILE);
print "[~] Scan finished.\n";
sub scan{
my $string=shift;
my $remote = IO::Socket::INET->new (Proto => "tcp",
PeerAddr
=> $hostname, PerrPort => $port);
unless ($remote) {print "can't connect\
n"; exit 0;}
$remote->autoflush(1);
my $http = qq{HEAD $string HTTP/1.1
HOST: $hostname
};
print $remote $http;
while(<$remote>) {
return "ok" if(/HTTP.+?200\sOK/) or
return undef;
} 

[rand]

Radau toki skriptuka, bet prie jo nebuvo parasyta kokia kalba jis parasytas :

Kodas: Pasirinkti visus

 #!/usr/bin/perl
<...> 

O dieve...

Negi sies laikais zmones tokie akli? whateva..

[^Paulius^]

Jau radau, kad tikrai perl.

[MaksasMks]

Negaliu, pzdc Sry už flooda, nu Ir dar karta Viskas normaliai

[Mr.47]

Šeip nebūtina iš žmogaus imti juoktis, kadangi, programa gali būti perl ar koks python o parašyta pvz. php(apsauga nuo lamų ), nes dažnai scriptų kūrėjai daro spc. klaidas, kad bilekas nesinaudotu.