my $ftp=Net::FTP -> new($hostname) or die ("Connect failed");
my $filename=$wrname;
print "Connected to Website\n";
$ftp->login($user,$password) or die ("cant Login");
$ftp->binary or die ("cant Binary");
$ftp->hash or die ("cant Hash");
$ftp->cwd("public_html") or die ("cant Change Dir");
$ftp->cwd("jobs") or die ("cant Change Dir2");
$ftp->put($filename) or die ("cant Upload");
print "File Uploaded";
$ftp->quit;