my $ftp = Net::FTP->new($ftpServer, Debug => 0) or die "Cannot connect to $ftpServer: $@";
    $ftp->login($ftpUsername, $ftpPassword) or die 'Cannot login: ' . $ftp->message . "\n";
    $ftp->mkdir($webServerDir);
    $ftp->cwd($webServerDir) or die "Cannot change working directory to $webServerDir: " . $ftp->message . "\n";
    $ftp->put($file) or die "Cannot copy file to server: " . $ftp->message . "\n";