sub ftpTransfer {
	# connect
	my $ftp = Net::FTP -> new($server);
	print $ftp -> message(), "\n";

	# login
	$ftp -> login("$user","$pass");
	print $ftp -> message(), "\n";

	# set binary mode
	$ftp -> binary();
	print $ftp -> message(), "\n";

	# move through directories
	# $dir = "ftp";
	# $ftp -> cwd($dir);
	# print $ftp -> message(), "\n";

	# list files
	my @list = $ftp -> ls();
	print $ftp -> message(), "\n";
	print "<br>Filename: $filename<br>";
	# put files on the server
	$ftp->put($filename, $filename) or die "could not put $file";
	
	print $ftp -> message(), "\n";

	$ftp -> quit();
}