#!/perl/bin

require Exporter;

use lib ("/perl/lib/Net");
use Net::FTP;

$ftp = Net::FTP->new("droid.fit.qut.edu.au",
	Passive => True) or die "Can't open connect: $@\n";

$ftp->login("n2212811","asturias7")           or die "Can't login: $@\n";
$ftp->cwd();
$ftp->cwd("/n2212811/public_html/scripts")   or die "Can't open connect: $@\n";
$ftp->get("exp.txt");
$ftp->quit;