8 lines
268 B
Perl
8 lines
268 B
Perl
use Net::FTP;
|
|
print "Content-Type: text/html\n\n";
|
|
$ftp = Net::FTP->new("localhost"); # Unser Host
|
|
die "Konnte keine Verbindung aufbauen $!" unless $ftp;
|
|
$ftp->login("newuser", "wampp"); # Hier Benutzername und Password eingeben
|
|
$ftp->get("index.php");
|
|
$ftp->quit;
|