Net::FTP put function problem

#!\xampp\perl\bin\perl.exe

use CGI;
use Net::FTP;
use Carp::Heavy;

$co = new CGI;

$ftphost = "ftp.website.com";
$username = "username";
$password = "password";
$filename = "E:\\Server\\hellocgi.pl";

print $co->header,
		$co->start_html("Test FTP");
		
	if ($ftp = Net::FTP->new($ftphost,Debug=>1)) 
	{
		if (!$ftp->login($username,$password)) {
			print "Invalid username/password",
					$co->end_html;
		} else {
			$ftp->pasv();
			if (!$ftp->put($filename)) {
				print "Error uploading file",
						$co->end_html;
			} else {			
				print "File uploaded",
						$co->end_html;
			}
		}
		$ftp->quit;
	} else {
		print "Cannot connect to host",
		 		$co->end_html;
	}