Menggunakan modul Net::FTP

Modul Net::FTP merupakan modul yang dibuat untuk keperluan upload maupun download berbasis web. Modul ini selain mudah digunakan juga relatif handal, modul ini biasa di pakai oleh para pengguna perl-cgi. Adapun penggunaan modul tersebut adalah sebagai berikut :

use Net::FTP;
my $user ="johan";
my $password ="johan";
my $connection ="192.168.1.11";
my $data ="wol.tar";

$ftp = Net::FTP->new("$conection", Debug => 0)
or die "Cannot connect to some.host.name: $@";

$ftp->login("$user","$password")
or die "Cannot login ", $ftp->message;

$ftp->cwd("/")
or die "Cannot change working directory ", $ftp->message;

--------------------------------------------------------
Ini kalo mau upload

$ftp->put("$data")
or die "get failed ", $ftp->message;
--------------------------------------------------------
Ini kalo mau download
$ftp->put("$data")
or die "get failed ", $ftp->message;
--------------------------------------------------------

$ftp->quit;

Nah gampang banget kan..., nanti kita tinggal ganti nilai dari variabel masukan diatas dengan nilai hasil inputan dari form.