if ( open(TAR, "| xargs -0 tar czf $patchFile") )
{
    foreach my $file ( @filelist )
    {
        print TAR "$file\0";
    }
} else
{
    # Fehlerbehandlung
    print "Hat nicht funktioniert\n";
}
close(TAR);
print "Alles ok\n";